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lie. u»t 



/BASIC. LSE 



PAL8-V7 



LAB-0\£ BASIC 

COPYRIGHT 1971, OICITAt. EQUIPMENT CORPORATION 
MAYNARO. MASS. (01794) 

WRITTEN BY JACK BURNESS 



THIS BASIC IS A COMBINATION OP LAB-8/E BASIC 
AND 8K.BASIC FOR THE PDP-8, Kj CREATE IT 
FOR THE LAB-8/E SET "MACHINE"!*, TO CREATE IT FOR 
THE POP-B SET "MACMlNEtB", 



MACHINE«0 











XFNZRO 


MACHINE* 




FIELD 


1 




• 7T00 






JMP I 


U6ETM0 




*600e 






DCA 
TAD 
DCA I 
TAD 
SZA 
JMP I 
CIF CDF 


UTEMP 
INTHUT 
INTPtC 
UTEMP 

INTPLC 




THIS CODE OVERLAYS THE BINARY LOADER IN FIELD 
ONE TO MAKE LAB-8/E BASIC SELF STARTING. 



(IC.tBt ^*U8-V7 ^P i-1 

JMP I ,*l 

START 

inthlt, hut 

IKT^UC, 7700 



/BASIC4.S2 



0000 



FIELD /TO HEL^ BINARY LOADER IN CASE HE BLOWS IT, 



rsic.tsc 



^*L(l-VT 



1-2 



00000 *■>>•>««•«-« 
J SYSTEM I 

ARRAY 1 
i SPACE I 

4. «•«....••« 

1 FREE I 

1 COOXFXEO 1 
i BASIC i 

I SVMBOt, i 
t TABLE 1 

t LXNEBUF I 

I STACK 1 

i F0RLI8T 1 

1 COLIST 1 

17T56 ♦.———♦ 

i RIM I 

1 LOADER i 

17777 ♦—————♦ 



/48ei 

/4I0I 

/«303 

/««fl4 
/•IBS 
/«i06 
/«107 
/41i0 



frc.i»£ 



fAL8«yT 



1-5 





/4n0 


■ < 




/«in 


>■ 




/«ni 


■ » 




/i*XlZ 


<> 




/«21J 


tUMTNUS) 




/40ia 


(DONE) 




/4015 


1 




/4ei6 


1 




/40ir 


) 




/4021 


TO 




/«022 


STEP 




/«023 


( 




/4024 


FN 




/4025 


COS 




74026 


TAN 




/4027 


ATN 




/403e 


LOG 




/4031 


EXP 




/4032 


SQR 




/4033 


Aes 




/403tt 


S'-N 




/403S 


lit 




/«0S6 


RNO 




/40S7 


SIN 




/fee00 


CCRkF) 




/6000 


N 




/6001 


END 




/fc002 


FOR 




/600S 


608UB 




/68e4 


SOTO 




76004 


THEN 




/fc005 


IF 




/ft00fc 


INPUT 




/b0er 


LET 




/6010 


NEXT 




/b0ii 


PRINT 




/6012 


RETURN 




/6013 


STOP 




/6014 


DIM 




/601S 


RESTORE 




/MIT 


OEF 




/6020 


READ 




/6021 


DATA 




/fc022 


(EXITJ 




/6023 


CEOFJ 


0000 


FEXlTi 


10000 


0040 


FSNe«0040 


0050 


FSEQa0050 


0100 


FSGe-0100 


0110 


F8l.T«0110 


0140 


FSGTa0140 


01S0 


F8UE«0150 



rsic.LiE 



p»t.e«v7 



i-a 



uee 


FJMP«1000 


laee 


rjHPi»ia00 


i^i^ 


FSTI2000 


iuzz 


FSTI«2«e0 


3eee 


FLD>3000 


3000 


FLOI'34e0 


«eea 


F*O«a000 


a«0a 


FADIaa400 


seee 


FSB«S00e 


suee 


FSBI>S4e0 


eeee 


FHP«6ee0 


6400 


FMPII6400 


reea 


FOV«Te00 


7«ee 


FOVla7<>00 


0200 


FHO«2e0 


0600 


BKmD*600 



b530 


»0CU»653r 


fcSSl 


A0LN>6S3i 


b5S2 


A0$T>6532 


65S1 


A0RBa65S3 


6S3i 


A08Ka65S4 


fcSBS 


408E*65SS 


651ft 


A0LE«6S36 


ftssr 


«0liS>6SS7 


*050 


DlLCa60S0 


60S1 


OICD>60S1 


htSl 


DX8DB60S2 


fc0S3 


011X46053 


6054 


OIWY460S4 


6055 


DIXVII60S5 


6056 


OILE46056 


6057 


OIREa6057 


6134 


CLENa6134 


6133 


CL*Ba6133 


6132 


CL0E46132 


6130 


CI.ZE46130 


6131 


CLSK46131 


6137 


CLCAa6137 


6135 


CLSAa613S 


6136 


CLBA«6136 



0000 '0 



rsictat 



P*L8«V7 



1-5 



?e?ee 


ere? 





?eeet 


5*02 


JMP 1 .♦I 


?ee?2 


bbif 


INTER 


eeep3 


zeee 


ARRLOC, 


eeeed 


eeze 


COOCl.OCi0 


eeess 


3000 


P8YMT*B,0 


00206 


0000 


NSYMTABf0 


^^^^f 


2215 


0215, 215 


eeeie 


0212 


0212, 212 


eeau 


0260 


0260, 260 


eeeiz 


0000 


OV, 


eeeis 


0000 


INDEXl, 


00014 


0000 


IN0EX2, 


00015 


0000 


QIS*UTO,0 


00016 


0000 


AC3, 


00017 


0000 


AC2, 


00020 


0000 


ACl, 


00021 


0000 


0P3, 


00022 


0000 


0P2, e 


00023 


0000 


OPl, L 


0002* 


0000 


ACS, 


00025 


0000 


ACe, 8 


00026 


0000 


OPS, 8 


00027 


0177 


0177, 177 


00038 


0000 


OPE, 8 


000S1 


0000 


y»p, 8 


000S2 


7201 


P6ETCH, GETCH 


00033 


8741 


PPUTCH, PUTCM 


0003« 


0880 


DIMPLACe 




443S 


FENTERtJMS 1 ,|FPT 


00035 


4280 




00036 


0080 


POL, 


00037 


7512 


PLINBUF,tINBUP 


00040 


0266 


MLINBUF,*LINBUP 


00041 


0135 


MENOLIN,«ENDLIN 


00042 


0000 


PRTEMP, 


00043 


0080 


OECEXP, 


00004 


5335 


PNUM8UP,NUM8UP 


00045 


0000 


LOCCTR, 


00046 


0000 


REAOlOCe 


00047 


7363 


PAR6ERR,4RGERR 


00050 


0000 


MORO, 8 


00051 


0240 


0240, 240 


00052 


0000 


LINENO, 


00053 


0008 


GOTEMP, 


00054 


7740 


07740, 7740 


00055 


7770 


07770, 7770 


00056 


0000 


EPTR, 


00057 


0000 


FPTR, 


00060 


0000 


GPTR, 


00061 


0000 


hPTR, 


00062 


0802 


02, 8 


00063 


0000 


FORCTr 



/INTERUPT ROUTINES, 
/UP, UP AND AWAY, 



/W% 



«IC.u«£ 



PAL8-V7 



p1^ 
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0?Bb5 

eeebT 

eeare 

P0BTJ 

eeerz 

00073 

PBPTa 

00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
0ei0b 
00107 

00110 

00111 
00112 
00113 

00114 
00115 

eeiib 

00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
001S1 
00152 



eeee 
?et2 
?0ee 

zzzz 
?e77 

0377 

0007 
0000 
0000 
0000 
7501 
ttl48 
6401 
1004 
1400 

0213 

2364 
3551 
47aA 
1202 
0472 
1015 
0341 
0311 
3702 
1674 
2707 

seee 

2405 
6430 

3110 
3747 
2603 

7644 
0000 

0000 
0000 
0000 
0000 



5NUMrLSi0 
C12, 12 
OLOOP, 
*OORtSS,0 
077, 77 
0377, 377 
07, 7 
OPERAND, 01010 



0000 
7116 
7465 
7 326 
7146 
0360 
6413 

ee00 

4600 
4402 
4654 
2014 
0000 



PTEKT, 

PERROR, 

PSXERR, 

PEVAL, 

PCETAOO 

PEXECUT 

PPUSM, 

PPOP» 

PfIX, 

PSOTOPR 

PPASSCR 

PGETOPR 

PSTOVAR 

PGETVAR 

PPRINTX 

P6ETBLK 

PStOOP, 

POUTNUM 

PEOIT, 

P8T1CKI 

PNONBLN 

PPRINUM 

P6ETLIN 

PPOLIST 

COLUMN, 

INOEV, 

0UTD2, 

OUTDEV, 

OOEV» 

CNTLO, 

NOINT, 

RB8WCH, 

DI8B, 

PRESET, 

SPECINT 

PCOUTi 

OEtOUT, 

CNCLR* 

BPLEFT, 

PTEN, 

PANORH, 

PARI, 

PAL1» 

ONE, 

ZERO, 



XXTEXT 
ERROR 
SXERR 
EVAU 
,GETAOOR 
, EXECUTE 
PUSH 
POP 
FIX 
,G3T0PR 
,F aSSCR 
jGETOPR 
,ST0VAR 
fSETVAR 
,PRINTXT 
iGETBLK 

SLOOP 
,OUTNUH 

EDIT 
,8TICK1T 
fNONBLNK 
,PRINUM 
,6ETLIN 
,PDLI8T 



















RE8ET1 
,CCINTK 

COWT 

OUTOEL 

CLRCNT 

RMLCFT 

TEN 

ANORM 

ARl 

ALl 

2014 

01010 



/THIS PREVENTS INTERUPT8 DURING CRITICAL TIMES, 



PSICCBE 



PAL»-VT 



1-T 



3eiS3 


0000 




?0J5« 


0000 




eel 55 


0200 


02001 200 


ZPlSfc 


9?.Zti 


FP^L*S, 


20157 


4435 


POAOOi OAOO 


eeuB 


0004 


04, 4 


eei6i 


2330 


PLlt*rit,LlHPU 


eei62 


7 7 45 


07745, 7745 


eei63 


6400 


PCMKriT.CHKFlT 


eesbtt 


7725 


P(fOI.I8T,60LI8T 


eetfcS 


0000 


GSBPTR, 




0001 


GET«1 




4566 


ISIT-JM8 I .MISITMGISIT 


eei66 


4073 




00167 


4066 






4570 


HUSTBE*JMS I .rXHUSTlXGMU 


00170 


7352 




00171 


7 345 




00172 


7563 


PLBECIN.UBEGIN 


00173 


0214 


M|.BE6XN,-l.BE6IN-l 


0017a 


0074 


MLENO, --:nopoi. 


00175 


4104 


Pl»ITtX,lSIT|.IT 





0200 




PACE 








0177 




• .-I 






00177 


0000 


GETWO, 









00200 


144S 




TAO I 


LOCCTR 




00101 


3050 




QCA 


NORD 




00202 


2045 




I8Z 


UOCCTR 




00203 


5577 




JMP I 


GETMD 




00204 


020S 


PLETOO, 


LETDO 






00205 


4570 


LETOO, 


NUSTBE 




/*•• 


00206 


3673 




3673 






00207 


4501 




JM8 I 


PEVAL 




00210 


4570 




MUSTBE 




/CCR) OR 'N' 


00211 


2000 




2000 






00212 


4341 




JM8 


STOVAR 




00213 


4177 


EXECUTE 


,JM8 


GETWO 




00214 


1204 




TAO 


PLETOO 




00215 


3311 




OCA 


GETVAR 




00216 


14S0 




TAO 1 


WORD 




00217 


7510 




SPA 






00220 


5231 




JMP 


KEYWD 




00221 


7640 




SZA CLA 




/X8 IT A UINENO 


00222 


5313 




JMP 


NOTKMO 


/NO 


00223 


1050 




TAD 


WORD 





iic.Lse 



p*i.«-vr 



1-8 



e?22« 


30S2 




QCA 


UlNENO 


20225 


«ITT 




JMS 


GCTWO 


SZZib 


1450 




T*0 I 


t.ORD 


ZZiV 


TTze 




SHA CL* 




?e2je 


5313 




JMP 


NOTKtuO 


ze23s 


7332 


KEVMOi 


CLA CLL 


cut RTR 


00232 


i4se 




TAD I 


mORO 


ee23S 


7428 




SNL 


/18 IT A STATEMENT 


e023a 


SS00 




JMP 1 


P8XERR /NO 


ae235 


1240 




TAD 


«JUMP 


0?23b 


3237 




OCA 


.♦I 


eezsr 


7402 




MtT 




eezd? 


S641 


SJUMP, 


JMP I 


.♦I 


eezai 


0213 




EXECUTE 




00202 


25b7 




END 




002<>3 


0413 




FOR 




00244 


0S0S 




GOSUB 




002*5 


0517 




GOTO 




00246 


0375 




IF 




00247 


4007 




INPUT 




002se 


0312 




LtT 





WORD 



/Wic 


.USE 


P*l.fl-V7 


ae2St 


0600 


NEXT 


Z0i52 


2173 


PRINT 


22253 


3677 


RETURN 


7^258 


2570 


STOP 


?0255 


6072 


DIM 


0B256 


3773 


RESTORt 


aeasT 


0067 


SKIPIT 


ee2be 


1576 


OEF 


aeicit 


1623 


READ 


?e2(>2 


0067 


8K1PIT 


20263 


2002 


EXIT 


00260 


2570 


$TOP 


00265 


7173 


TTVIN 


00266 


7165 


TTYOUT 


00267 


7163 


LPTOUT 


00270 


7160 


PTPOUT 


sazTi 


7172 


?TRIN 


00272 


6001 


SXERR 


00273 


5873 


RUBO 


00270 


5570 


NORUBO 

ITMZRO MACHINE* 

CLEAR 

DELAY 

USE 

PLOT 

REALTIME 

8ETRATE 

SETCLOCK 

WAITC 

WAIT 

SXERR 

ACCEPT 

REJECTS 



/THIS SLOT IS NOW FREE< (6031) 



/"UCOM" 



USER COMMAND, 



IPZERO MACHINE* 



00275 




SXERR 


00276 




SXERR 


00277 




SXERR 


00300 




SXERR 


00301 




SXERR 


00302 




SXERR 


00303 




SXERR 


00300 




SXERR 


00305 




SXERR 


00306 




SXERR 


00307 




SXERR 


00310 




SXERR 



?^n 



C.L8I 



p«te-v7 



P*"2-l 



?P311 


eaee 


GCTV*», 











;>f$t? 


«JTT 


LET, 


JMS 


GETtfO 






/•?313 


45 re 


NOTKWO, 


MUSTBt 




/* VARIABLE 


'?3ltt 


iztz 




7000 








^05J5 


105? 




TAD 


WORD 






?P>5J6 


3343 




OCA 


VAR 






^0317 


3344 




DCA 


SSONE 






30580 


3345 




OCA 


SSTViiO 






?9li\ 


4567 




SET+I8IT 




/♦(• 


30322 


3755 




3755 








00325 


5711 




JMP I 


6CTVAR 


/NO 




ap32« 


4501 




JHS I 


PEVAL 






'^50325 


4506 




JM8 I 


PFIK 






ir'0526 


3344 




OCA 


SSONE 






30327 


4566 




ISIT 




/'»• 




130330 


3763 




37b3 








H0331 


5335 




JMP 


NOCOMMA 


/NO 




00332 


4501 




JMS I 


PEVAL 






00333 


4506 




JMS I 


PFIX 






a033fl 


3345 




oc<^ 


SSTMO 






0033S 


4570 


MOCOHM* 


.MU'.VBE 




/')• 




00336 


3761 




3761 








00337 


4177 




JH8 


GETWD 






00340 


5711 




JMP I 


CETVAR 






00341 


0000 


STOVAR, 











00342 


4512 




JMS I 


PGETADOR 




00343 


0000 


VAR, 











00344 


0000 


SSONEi 











00349 


0089 


SSTMOi 











00346 


4439 




FENTER 








00347 


2467 




F8TI 


ADDRESS 






00350 


0000 




FEXIT 








00351 


5741 




JMP I 


STOVAR 






00352 


4477 


FNiRRf 


JMS I 


PERROR 






00353 


0625 




TEXT 'FUNCTION* 






00354 


1603 












00355 


2*11 












00356 


1716 












00357 

00360 


0000 
0000 


CLRCNT, 









/ROUTINE WMICM CHECKS ST 


00361 


7201 




CLA lAC 








00362 


1134 




TAD 


NOINT 




/WAS IT SET TO -It 


00363 
00364 


7690 
9767 




SNA CLiI 
JMP 1 


P80MB 




/YEP, OIVE STOP MESSAGE, 


00365 


3134 




DCA 


NOINT 




/NOFE, RESET IT, 


00366 


9760 




JMP I 


CURCNT 




/ANO EXIT 



00367 6670 PBOMB, CNTLCR 



00370 4477 8PAC£RR»JMS I PERROR 

00371 2417 TEXT 'TOO-BIG* 



IIC.LSE 



PIL»«V7 



2-2 



28372 1755 
SeS73 9211 

^037« 27ea 



80375 


4501 


IP, 


JHS I 


PEVAL 


02376 


4435 




F' MER 




00377 


2073 




FJT 


OPERAND 


00400 


0000 




FEXIT 




00«01 


4570 




MUSTBE 


/•THEN' 


00402 


1774 




1774 




00403 


1073 




TAD 


OPERAND 


00404 


7750 




SPA SNA 


CLA 


00405 


5267 




JMP 


SKIPIT 


0040ft 


4567 




GET^ISIT /A LINENO 


00407 


0000 




0000 




00410 


5612 




JMP I 


xexecu 


00411 


5320 




JMP 


60T0*1 


00*12 


0214 


xexECu, 


EXECUTE' 


*l 


00413 


4971 


ron, 


SET^MUSTBE /A VARIABLE 


00414 


7000 




7000 




00415 


4357 




JMS 


PINOXT 


0041^ 


5235 




JMP 


NOTMERE 


00417 


7201 




CUA lAC 




00420 


1013 




TAD 


INDEXl 


00421 


3014 




DCA 


INDEX2 


00422 


7240 




CLA CMA 




00423 


1013 




TAO 


INDEXl 


00424 


3013 




DCA 


INDEXl 


00425 


5232 




JMP 


INUUPP 


00426 


1414 


\.\jpf, 


TAD I 


INDEX2 


00427 


3413 




DCA I 


INDEXl 


004^0 


1414 




TAD I 


INDEX 2 


00431 


3413 




OCA X 


INDEXl 


00432 


2053 


INLUPF, 


I8Z 


80TEMP 


00433 


S226 




JMP 


LUPF 


00434 


2063 




ISZ 


FORCT 


00435 


1063 


NOTHEBI 


,TAO 


FORCT 


00436 


ise« 




TAD 


Oil 


00437 


7750 




SPA SNA 


CLA /CAN'T FI 


00440 


5301 




JMP 


FORERR 



9 IN F0RLI8T 



■F*8IC 


,l«C 




PAL 


{»efi«i 


IZ58 


TAD 


nORO 


(fenai 


T841 


CIA 




?e««3 


3413 


OCA I 


iNuexi 


sri«4 


1352 


TAO 


wORO 


02<>as 


32S2 


OCA 


FORVAR 


ep««6 


ab7l 


&ET«HUSTee 


^ea«7 


3*T3 


3673 




eease 


4Sei 


JM8 I 


PEVAL 


00«5l 


4592 


JM8 1 


PGETAODH 


aea52 


izez 


FORVAR, (2 




pa«53 


2000 







eeasa 


0000 







00«55 


4435 


FENTER 




00056 


2a67 


rsTi 


ADDRESS 


ee«57 


0000 


FEXIT 




ee«6B 


4570 


HU8TBE 




ee^bi 


3757 


3757 




eeoftz 


1045 


TAD 


LOCCTR 


eea63 


3413 


OCA I 


INDEXl 


eeo^a 


7240 


CLA CMA 




eeafrS 


1063 


'AO 


FORCT 


0046* 


3063 


OCA 


PORCT 



rcE 2-3 



/♦•• 



/'TO* 



00467 4671 SKIPXT, JMS I PI6N0RE 
00470 5S03 JMP I PEXECUTE 



/LOOK FOR "V OR C,R, 

/AND EXECU7EPTHE NEXT STATEMENT, 



00471 2115 PICNORE1I6NOPE 



00472 


0000 


PASSCR* 




00473 


4671 


JMS I 


PIGNORE 


00474 


2050 


I8Z 


WORD 


00475 


4566 


ISIT 




00476 


4100 


4100 




00477 


5273 


JMP 


.-4 


00500 


5672 


JMP I 


PAS8CR 



/THIS LOOKS FOR A REAL C.R, 
/LOOK FOR "V OR C.R, 



/A REAL C.R. 7 

/NOPE. A SLASH, 

/AND RETURN TO CALLER, 



Vmic 


.L8E 






PALe-V7 


seSBi 


4477 


^ORERR, 


JMS I 


PERROR 


ess^g 


0617 




TEXT 'FOR* 


^e5e3 


22e0 








8!e5«"« 


«)011 


Oil* 


11 




eeses 


4177 


COSUBi 


JM8 


GETWO 


P050b 


4332 




JMS 


(.OBOTH 


00507 


1165 




TAD 


GSBPTR 


0PS10 


1325 




TAO 


MGSBENO 


00511 


7650 




SNA CLA 




00518 


5326 




JMP 


DEEPERR 


00513 


1045 




TAD 


UOCCTR 


00Sia 


3565 




OCA I 


GSBPTR 


00515 


2165 




xsz 


GSBPTR 


00516 


5321 




JMP 


G0T0«2 


00517 


4177 


GOTO, 


JMS 


GETWD 


00520 


4332 




JMS 


GOeOTH 


00521 


2053 




ISZ 


GOTEMP 


00522 


1453 




TAO 1 


GOTEMP 


0052S 


3045 




OCA 


UOCCTR 


30524 


5503 




np I 


PEXECUTE 


00525 


0023 


M68BEND 


, -GSBENO 




0052ft 


4477 


DEEPERR 


fJHS I 


PERROR 


00527 


0riT 




TEXT 'SOSUB* 


00530 


2325 








00531 


0200 








00532 


0000 


GOBOTH, 







00533 


4570 




MUSTBE 


/A LINENO 


00SS4 


0000 




0000 




00535 


1050 




TAD 


WORD 


00536 


3053 




OCA 


GOTEMP 


00537 


2050 




ISZ 


WORD 


00540 


4566 




I8IT 


/DEFINED 


00541 


0000 




0000 




00542 


5350 




JMP 


181TDF 


00543 


4477 




JMS I 


PERROR 


00544 


1411 




TEXT 'LlNENO* 


00545 


1605 








00546 


1617 








00547 


0000 








00550 


4571 


18IT0F, 


GET*MU8TBE /(CR) OR 


00551 


2000 




2000 




00552 


5732 




JMP I 


60B0TH 


00553 


0000 


VARTEMP 


,0>0I0 




00554 


0000 








00S55 


0000 








00556 


7704 


PXrORLI 


,F0RL1ST 


•I 


00557 


0000 


FINDIT, 







00560 


1063 




TAO 


FORCT 


00561 


3053 




OCA 


GOTEMP 


00562 


1356 




TAD 


PXFORLIST 


00563 


3013 




OCA 


INDEXl 


00564 


5371 




JMP 


INLOOP 


00565 


1413 


FINOLUP 


iTAO I 


INDEXl 


00566 


1050 




TAD 


WORD 



rGE 2*4 



*\* 



W*5IC 


.L»C 






PALB.V7 


BPSfcT 


7650 




SNA CL* 




eieSTe 


5575 




JMP 


FOUND 


08571 


2213 




I8Z 


INDEXl 


eesra 


2Z5S 


INLOOP, 


ISZ 


60TEMP 


aesTJ 


5365 




JMP 


FINDLUP 


00574 


5757 




JMP I 


FINDIT 


00575 


2357 


FOUND, 


isz 


FINOIT 


0B576 


5757 
0600 




JMP I 
PAGE 


FINDIT 


00600 


4571 


NEXT, 


GET^MUSTBC /k VARIABLE 


00601 


7000 




7000 




eahzi 


4672 




JM8 I 


PFINOIT 


00603 


5273 




JMP 


NEXTERR 


00604 


1050 




TAO 


mORD 


00605 


3237 




DCA 


NEXTVAN 


00606 


4571 




GET*MU8T8E /CCR) OR 'V* 


00607 


2000 




2000 




00610 


1045 




TAD 


LOCCTR 


006tl 


3271 




;CA 


LOCTfcMP 


00612 


1413 




TAD I 


INDEXl 


00613 


3045 




OCA 


LOCCTR 


0061* 


4901 




JM8 I 


PEVAL 


0061S 


4439 




FENTER 




00616 


2303 




F8T*FWD*F0RLIM-, 


00617 


0000 




FEXIT 




00620 


4966 




I8IT 


/(CR) OR 'V* 


00621 


2000 




2000 




00622 


9226 




JMP 


TRV8TEP /NO 


00623 


4439 




FENTER 




0062S 


3191 




FLO 


ONE 


00625 


1207 




FJMP*FW0»G0T8TEP«, 


00626 


4970 


TRV8TCP 


fMUSTSE 


/•STEP* 


00627 


3756 




3756 




00630 


4901 




JH8 I 


PEVAL 


00631 


4970 




MU8TBE 


/(CR) OR '\* 


00632 


2000 




2000 




00633 


4439 




FENTER 




00634 


2270 


G0T8TEP 


,F8T*FW0*F0R8TEP-, 


00635 


0000 




FEXIT 




00636 


4902 




JMS I 


PGETAOOR 


00637 


0000 


NCXTVAR 


.0 




00600 


0000 









00641 


0000 









00642 


4439 




FENTER 




00643 


3467 




FLOI 


ADDRESS 


00644 


4260 




FA0*FWD*F0R8TEP-, 


00645 


2672 




FST*BKWO*."VARTEMP 


00646 


5253 




FSB^FWO 


4F0RLIM*. 


00647 


0000 




FEXIT 




00690 


1014 




TAD 


ACS 


00651 


1324 




TAD 


F0R8TEP 


00652 


7700 




SMA CLA 




00693 


1020 




TAD 


ACl 



;e 2-9 



m 



PfeiSK 


.L«E 




P*Le-V7 




?J«>b« 


7600 




SZA CL* 




?Pfc55 


5263 




JMP FOBOONC 




CJ*5b 


aa35 




FENTtR 




e?fr5T 


370a 




FLD*eKiNO*.-V*RTEMP 




sofefce 


2U67 




FSTI «OORESa 




jetfrt 


2300 




FEXIT 




eedtia 


5503 




JMP I PEXECUTE 




^^6(l3 


1271 


FORDONE 


,T*D COCTEMP 




eefeba 


3045 




OCA LOCCTR 




ee«>t5 


2063 




ISZ FORCT 




ZZbbb 


2053 




I8Z GOTEMP 




e2fc67 


5265 




JMP ,-2 




eebTe 


5503 




JMP 1 PEXECUTE 




80671 


0000 


LOCTEMP 


,z 




20672 


0557 


PflNOlT 


,FINOIT 




80673 


4477 


NEXTERR 


,JMS 1 PERROR 




P067a 


1605 




TEXT 'NEXT* 




00675 


3024 








00676 


0000 








00677 


4571 


RETURN, 


GET*HUSTBE /CCR) 


OR 


00700 


2000 




?.000 




80701 


1165 




TAD 6SBPTR 




00702 


1320 




TAO MG0LI8T 




00703 


7650 




SNA CLA 




00704 


5313 




JMP RETNERR 




00705 


7240 




CUA CMA 




0070fc 


1165 




TAO S8BPTR 




00707 


3165 




OCA G8BPTR 




00710 


1565 




TAO J GSBPTR 




00711 


3045 




OCA LOCCTR 




00712 


5503 




JMP I PEXeCUTE 




00715 


4477 


RETNERR 


,JM8 X PERROR 




007ia 


2205 




TEXT 'RETURN* 




00713 


2425 








007U 


2216 








00717 


0000 








80720 


0053 


H60LIST 


,-60t.I8T 




00721 


0000 


FORIIM, 


0l0f0 




00722 


0000 








00723 


0000 








00724 


0000 


F0R8TEP 


,0)0 




00725 


0000 








00726 


0000 


SGN, 







00727 


4435 




FENTER 




00730 


0100 




F88E 




00731 


320S 




FUO*FWD*MN»ONE-, 




00732 


0150 




F8LC 




00733 


3151 




FLO ONE 




00734 


0000 




FEXIT 




00735 


5726 




JMP I 8GN 




00736 


6014 


f^NSONEi 


601410)0 




00737 


0000 








00740 


0000 








00761 


0000 


PUTCH, 







007a2 


3326 




OCA S6N 





iCE 2-6 



PASIC 


.L»E 




PAL6-V7 


iZ7»i 


i32(> 


T*0 


SCN 


ecTaa 


2027 


PCCUNT, »N0 


0J77 


?rT«5 


1374 


T»0 


07763A 


?CT46 


TbttB 


SZA CL* 




zeTaT 


5357 


JWP 


PNOCR 


eeTse 


1304 


T*0 


PCCUNT 


pe'51 


n26 


T*0 


COUUKN 


eeT52 


3237 


OCA 


NEXTVAR 


ee753 


3126 


OCA 


COLUMN 



rsE 2«7 



/IS IT A C.B. 

/NOPE, 

/ADD IN EXTRA PLACES POR GOOD LUCK. 

/SAVE COLUMN POSITION 



kSIC.LSE 



P4U8-VT 



,1 3 



aeTsa 


1237 




TAO 




NEXTVAR 


08755 


037b 




AND 




PUTXRA 


eeTSfc 


7110 




CLL 


RAN 




??75T 


7j7a 


PMOCR, 


CUU 


CMU 


CNA RAR 


eeT60 


3237 




OCA 




NEXTVAR 


0B761 


I32b 




TAD 




SGN 


eeTbs 


0375 




AND 




OiaBA 


eeT63 


7440 




SZA 






ez7b« 


13b5 




TAD 




OTbOBA 


007fe5 


7600 


Q7baBA, 


SZA 


CLA 




eert-b 


2126 




ISZ 




COLUMN 


BBTfc? 


1326 




TAO 




SGN 


eerre 


4777 




JM8 


I 


JPUTCH 


00771 


2237 




ISZ 




NEXTVAR 


00772 


5370 




JMP 




.-2 


00773 


S7fli 




JMP 


I 


PUTCH 


0077« 


7763 


07763A, 


7763 


1 




0B775 


BUB 


OUBA, 


\aB 






00776 


e000 


PUTXRA, 


1 






BB777 


7000 


JPUTCH, 


^UTER 





/RE6ET WHERE ME WERE. 

/ARE ME INSERTING NULL CHARACTERS? 

/NOM DIVIDE BY 2, 

/AND NOM INVERT AND DIVIDE BV 2 AGAIN, 

/SAVE FOR LATER USE, THIS IS NULL COUNTER, 

/RECALL THE CHARACTER. 



/INCREMENT THE COUNTER 

/GIVE NULLS UNTIL IT'S SATISFIED, 



/NULL AFTER C,R, WORU, 



IBBB 



PAGE 



01000 


4603 


START, 


JNS I 


XRE8TA 


01001 


5602 




JMP I 


.♦1 


01002 


2440 




SCRATCH 




01BB3 


7407 


XRESTA, 


I8ET 




01004 


0000 


IVAL, 







01005 


4177 




JM8 


6ETWD 


01006 


1204 




TAO 


EVAL 


01007 


4504 


EVAUGOi 


JM8 I 


PPU8M 


01010 


1363 




TAO 


04014 


01011 


4504 




JMS I 


PPU8H 


01012 


5216 




JMP 


GET0PR«1 


01013 


1364 


ISUMIN, 


TAO 


04213 


01014 


4504 




JMS I 


PPU8M 


01019 


4177 


GBTOPRf 


JMS 


6ETWD 


01016 


4566 




I8IT 




0101T 


3577 




3977 




01020 


7410 




SKP 




01021 


5213 




JMP 


ISUMIN 


01022 


4966 




I8IT 




01023 


3600 




3600 




01024 


7410 




SKP 




01025 


5219 




JMP 


GETOPR 



/REST FLAGS AND DEVXCCS, 



/♦♦* 



^Tj 



$ic.L8E p*Le-v7 p»re 3-1 

aieab «5b6 isn /•(' 

5iia2T 5755 3755 

BiaSe 5835 JMP N0P4REN /NO 

PieSJ <1S2« JM3 tV*L 

01032 "578 MUSTBE /')' 

01033 37fcl 37bl 

01034 5507 JMP I PGOTOPR 

01035 «566 NOP»HEN,I»IT /A VARIABLE 
0103(> 7000 7000 

01037 5305 JMP NOTVAR /NO 

01040 3276 OCA ONESS 

010«1 3277 OCA TWOSS 

01002 1050 TAO WORD 

01003 3275 OCA WOTEMP 
010a« aSbl GET+ISIT /•(* 
010«5 3755 3755 

01006 5274 JHP GOTSS /NO 

01047 1275 TAD WDTEMP 

01050 4504 JMS I PPUSH 

01051 0204 JMS EVAL 

01052 456* :ilT /'»» 

01053 3763 3763 

01054 5264 JHP ONEDIM 

01055 4506 JMS I Pflt 

01056 4504 jns X PPUSH 

01057 4204 JMS EVAL 

01060 4506 JMS I PFIX 

01061 3277 DC* TWOSS 

01062 4505 JM8 I PPOP 

01063 5266 JMP ,*3 

01064 3277 ONEDIM, OCA TWOSS 

01065 4506 JMS I PPIK 

01066 3276 DCA ONESS 

01067 4570 MUSTBE /*)* 

01070 3T61 3761 

01071 4S05 JMS I PPOP 

01072 3275 OCA WOTEMP 

01073 4177 JMS OETWO 

01074 4502 GOTSS> JMS I P6ETAD0R 

01075 0000 WDTEMP, 

01076 0000 ONESS, 

01077 0000 TWOSS* 

01100 4435 PENTER 

01101 3467 PLOI ADDRESS 

01102 0000 FEXIT 

01103 5784 JMP I ,♦! 

01104 1203 OPOONE 

01105 4575 NOTVAR, JMS I PISITLIT /ISIT A LITERAL 

01106 5310 JMP IStTFUN /NO 

01107 5507 JMP I PGOTOPR /IT IS IN THE AC NOW 



; ! 3« »1TPUN,TAD I WORD ^^^^^ ^^ BEGINNING OF FUNCTIONS. 

S 2 All JP* /" IT A LEGAL FUNCTION? 

Si 5500 JMP I P8XERR /NO. EXIT WITH MESSAGE. 

01114 7450 SNA /WAS IT *FN» 



.^IC 


.U8t 






P*Le-V7 


pVT 3-2 


3U15 






JMS 


GCTrtO 


/YES, SKIP OVER LETTER 


• I '. 1 h 






JMS I 


PPUSh 




.". 1 I T 






OET*MUSTBE 


/'(' 


iWiZ 






3755 






.M121 






JMS 


EvAt 




.M122 






JM8 I 


PPOP 




Zllil 






TAD 


FJUMP 




2112* 






OCA 


.♦1 




^11^5 






HLT 






2112k 






JMP I 


.♦I 




3112T 






FNEXIT 






ail38 




FJUMP, 


JMS 1 


FUNTA8 




ZIS31 




FUNTAB, 


FN 






21132 






COS 






31133 






TAN 






31134 






ATN 






aii35 






LOG 






91136 






EXP 






aiiST 






SQR 






?ll"8 






ABS 






011<»1 






S'H 






aii«2 






I.MT 






011*3 






RND 






01t«4 






SIN 






aius 






PUTJ 




/POINTER TO PUT CHAR 


SlUfc 






SXERR 




/rOR THE MISC, FUNCTI 


aii*T 






SXERR 






01150 






SXERR 






011St 


1770 




6ETJ 




/OCT A CHAR FROM THE 



IFNZRO MACHINE* 

ADC 
T8T 

TIM 



/"NORMAL" A-D CONVERSION RETURN, 
/"TEST CHARACTER BUFFER", 
/TIME (• OF CLOCK TICKS), 



IFZERO MACHINE* 



01152 
81153 
P1154 


6441 
7421 
6441 


SXERR 

T8T 
SXERR 


^ 


81155 


5547 


TAB 




SllSfc 


6441 


SXERR 








IFNZRO 


MACHINE* 






CLS 





/TAB FUNCTION 18 IMPLEMENTED, 
/UNIMPLEMENTED USER FUNCTION, 



/BET STATUS OF LAST TICK, 



wsic 


• tst 




PAue-v7 


31115 


4177 


JMS 


SETMD 


' i n 6 


4584 


JMS I 


(•PUSH 


,". J I T 


«57l 


GET^MUSTBE 


31 1 £2 


J 7 55 


3755 




.n 1 2 1 


4284 


JMS 


EVAL 


^u^^ 


4585 


JW8 I 


PPOP 


ziiii 


1338 


TAO 


FJUHP 


3ll2« 


3325 


DCA 


.♦1 


aii?5 


7402 


HUT 




2tt2» 


5727 


JMP I 


.♦1 


3J12T 


1288 


FNEXIT 




3ii3e 


4731 


FJUMP, JM8 1 


FUNTA8 


21J31 


5453 


fUNTAB, FN 




21132 


5616 


COS 




31133 


5688 


TAN 




31134 


62B0 


ATN 




31135 


6114 


LOG 




9113b 


6808 


EXP 




81131 


5412 


SOR 




811<*8 


6425 


Af}S 




B11<*1 


0726 


S*-'J 




21142 


6434 


INT 




81141 


5353 


RND 




81144 


5624 


8ZN 




81145 


1761 


PUTJ 




8tl4fc 


6441 


8XERR 




8114T 


6441 


8XERR 




81150 


6441 


SXERR 




81151 


1770 


6ETJ 





3-2 

/YES, SKIP OVER LETTER 



/POINTER TO PUT CHAR ROUTINE, 
/FOR THE MX8C, FUNCTIONS, 



/GET A CHAR FROM THE TTY, 



IFNIRO MACHINE^ 

ADC 
T8T 
TIM 



/"NORMAL" A«D CONVERSION RETURN, 
/"TEST CHARACTER BUFFER", 
/TIME (i OF CLOCK TICKS), 



IFZERO MACHINE* 



81152 
81153 
?1154 


6441 
7421 
6441 


SXERR 

T8T 
SXERR 


p 


81155 


5547 


TAB 




81156 


6441 


SXERR 








IFNIRO 


MACHINE* 






CL8 





/TAB FUNCTION IS IMPLEMENTED, 
/UNIMPLEMENTEO USER FUNCTION, 



/GET STATUS OF LAST TICK, 



™E 



J 



P1200 «57e FNEXIT, MU5TBE /') 

01281 JTfcl 3761 

01202 ai77 GOTOPR, JMS GETWD 

01203 4503 OPOONE* JMS I PPOP 
ei204 3066 OCA OLOOP 

01205 1450 TAO I WORD 

01206 0272 AND 0700 

01207 7650 SNA CUA 

01210 5220 JMP ITSOP 

01211 1850 "'.O I WORD 

01212 0275 4ND 07077 

01213 1273 TAO 03755 

01214 7100 CLL 

01215 1366 TAO 023 

01216 7620 SNU CLA 

01217 5500 JMP I PSXERR 

01220 1066 ITSOP* TAD OLDOf 

01221 0272 AND 0700 

01222 3271 DCA OTEMP 

01223 14S0 TAD I WORD 

01224 0272 AND 0700 

01225 7041 CIA 

01226 1271 TAD OTEMP 

01227 7700 SMA CLA 

01230 5247 JMP OOITNOM 

01231 1066 TAO OLDOP 

01232 4S04 JMS I PPUSH 

01233 4439 PENTER 

01234 2073 P8T OPERAND 

01235 0000 FEXIT 

01236 1073 TAD OPERAND 
01257 4504 JMS I PPUSM 

01240 1074 TAD OPERAND*! 

01241 4504 JMS I PPUSH 

01242 1075 TAO 0PERAND*2 

01243 4504 JMS I PPUSM 

01244 1450 TAD I WORD 

01245 4504 JMS I PPUSH 

01246 5511 JMP I PGETOPR 

01247 1066 DOITNOW,TAO OLDOP 

01250 0070 AND 077 

01251 1274 TAD 07764A 

01252 7450 SNA 

01253 5363 JMP UOOPER 



iIC,L«t P4I.B-V7 f^R 3"5 



?1?5« 


7eei 




lAC 




?1555 


Tfcbe 




SNA CLA 




ai25fe 


5321 




JM|» 


UMOPEH 


ejeST 


1266 




TAO 


OLDOP 


ei2fcz 


tZT0 




AND 


077 


?j2t.l 


1276 




TAD 


OJUMP 


2l2b2 


3271 




OCA 


OTEMP 


01Sb3 


4505 




JMS I 


PPOP 


ei2b« 


3075 




OCA 


0PERAND*2 


01265 


0505 




JMS I 


PPOP 


e]266 


3074 




OCA 


OPERAND^! 


0l2bT 


4505 




JMS I 


PPOP 


0l27e 


3073 




OCA 


OPERAND 


01271 


7402 


OTEMP, 


MLT 




01272 


0700 


O70e> 


700 




01273 


3755 


03755, 


3755 




0127a 


7764 


07764A, 


7764 




01275 


7077 


07077, 


7077 




01276 


5677 


OJUMP, 


JMP I 


.♦I 


01277 


1312 




PLUS 




01300 


1316 




M'NUS 




01301 


1327 




STAR 




01302 


1332 




SLASH 




01301 


5740 




UPARRX 


/OR 'UPARRC 


01304 


1342 




RELATE 




0130S 


1342 




RELATE 




01306 


1342 




RELATE 




01307 


1342 




RELATE 




01310 


1342 




RELATE 




01311 


1342 




RELATE 




01312 


443S 


PLUSi 


FENTER 




01313 


4073 




FAO 


OPERAND 


01314 


0000 


FADixr, 


FEXIT 




0131S 


S20S 




JMP 


OPDONE 


013U 


4435 


MINUS, 


FENTER 




01317 


5073 




FSB 


OPERAND 


01320 


0000 




FEXIT 




01321 


1020 


UMOPER, 


TAO 


ACl 


01322 


7640 




SZA CLA 




01323 


7330 




CLA CLL 


CML RAR 


01324 


1024 




TAO 


ACS 


0132S 


3024 




OCA 


ACS /O 


01326 


5203 




JMP 


OPOONE 


01327 


443S 


STAR, 


FENTER 




01338 


6073 




FHP 


OPERAND 


01331 


1615 




FJMP«BKWO*,-FAOEXT 


01332 


4435 


SLASH, 


FENTER 




01333 


2204 




FST*FWD*8LSHTMP-, 


01334 


3073 




FLO 


OPERAND 


01335 


7201 




FDV+FWD 


♦SL8MTMP-, 


01336 


1622 




FJMP*BKWO*,-FADEXT 


01337 


0000 


8L8HTMF 


',0f0l0 




01340 


0000 








01341 


0000 








01342 


1066 


RELATE, 


TAD 


OLDOP 



/DIRECT REF TO FLOATING AC 



usic.Lse 



P*C8»vT 



rGC 3-6 



21343 
?l3ua 
?l3-5 

eii4b 

?13«T 
B1358 

eissi 

21353 

ei35« 

ai355 

a 1356 
0135T 

e^iSbe 
ei36i 

eiS62 

ei363 
01364 
ei365 
01366 
2136T 
01370 
01571 
01372 
01373 
01374 
01375 



1367 T»0 

3353 OCA 

feiei cor 

1753 T*0 I 

6311 COF 

3353 OCA 

aaSS FENTER 

5073 FSd 
7fl02 TME»KIP,MUT 

1204 FJMP^F 

3151 FLO 
0000 FEXIT 
5803 JHP 

3152 FCO 
FEXIT 
JMP 

UOOPER, JMS I 
OCA 
JMP I 
023 1 23 
CONST, ,-<H04 
FSEO 
F«CT 
F8LT 
FS6E 
FSie 
FSNE 



5203 

4505 
3066 
5466 
0023 
5263 
0050 

0ue 

0U0 
0100 
0150 



CONST 
TMESKIP 

TNESKIP 

10 

THESKIP 

OPERAND 

nO*4 
ONE 

OPOONE 
ZERO 

OPOONE 
PROP 
OLOOP 
OLDOP 



6 K INSERT, 
6 « INSERT. 



a 
» 



1400 



PAGE 



01400 


0000 


6ETADOR,0 




01401 


6201 


COF 





01402 


1600 


TAD I 


GETADOR 


01403 


3014 


OCA 


INDEX2 


01404 


2200 


I8Z 


CETAODR 


01405 


1600 


TAO I 


GETADOR 


01406 


3362 


OCA 


GS91 


01407 


2200 


I8Z 


GETADOR 


01410 


1600 


TAO I 


SETAOOR 



8 K IN8ERT, 



m 



WiSiC 


.L8£ 






PAL 


01«11 


3363 


OCA 




6SS2 


?1«12 


22Z9 


isz 




GCTADOR 


eitti3 


6211 


COP 




10 


eittia 


l«14 


TAO 


I 


ZN0E)(2 


e 1 « 1 5 


3P67 


OCA 




Aooness 


eiaife 


2067 


I3Z 




ADDRESS 


0141T 


1362 


TAD 




GSSl 


tsiase 


7650 


SNA 


CLA 




01421 


5260 


JMP 




NOSSl 


01122 


1*14 


TAO 


I 


IN0EX2 


81*23 


7*50 


SNA 






etaaa 


S261 


JMP 




ALLOC 


01«25 


7140 


CLL 


CMA 




01*26 


1362 


TAD 




GSSl 


01427 


7630 


8ZL 


CLA 




01*30 


5370 


JMP 




SSERR 


01*31 


1414 


TAO 


I 


INDEX2 


01*32 


3364 


DC A 




60ZM2 


01*33 


1363 


TAD 




GSS2 


01*34 


7450 


SNA 






01*35 


5253 


JMP 




N0SS2 


01436 


7141 


CLL 


CIA 




01437 


1364 


TAD 




GDIM2 


01440 


7620 


8NL 


CLA 




eiaai 


5370 


JMP 




SSCRR 


01442 


1362 


TAD 




6S8t 


01443 


7041 


CIA 






01444 


3362 


OCA 




GSSl 


01445 


7410 


SKP 






01*46 


1364 


TAO 




GDIM2 


01447 


2362 


ISZ 




6881 


01450 


5246 


JMP 




.-« 


01*51 


136S 


TAO 




G882 


01452 


3362 


OCA 




GSSl 


01453 


1362 N0SS2» TAD 




GSSl 


01454 


7104 


CLL 


RAL 




01455 


1362 


TAD 




GSSl 


01456 


1067 


TAD 




ADDRESS 


01457 


3067 


OCA 




ADDRESS 


01460 


5600 NOSSli JMP 


I 


6ETADDR 


01461 


2034 ALLOC, I8Z 




0IMPLA6 


01*62 


7410 


SKP 






01463 


5273 


JMP 




I8DIK 


01464 


3034 


OCA 




DIMPLA6 


01465 


1363 


TAD 




6SS2 


01466 


7640 


SZA 


CLA 




01467 


1367 


TAD 




013 


01470 


3363 


DCA 




G882 


01471 


1367 


TAD 




013 


01*72 


3362 


DCA 




GSSl 


01*73 


1363 I8DXM, TAD 




GSS2 


01474 


7450 


SNA 






01475 


7201 


CLA 


lAC 




01476 


7041 


CIA 






01477 


3364 


DCA 




C0IM2 



ECE 4 



a K INSERT. 



r*SlC,L»£ 



P»Le-V7 



ei5?0 

?15?1 
?lbP2 
?t5?3 
?15C« 
?t5P5 

aiseifc 

?i5ie 
ei5ii 
ei5i2 

31513 

eiSia 

21515 

eisifc 

01517 
01520 
01521 
01522 
01523 
21524 
01525 
01526 
01527 
01530 
01531 
01932 
01533 
8153* 
01535 

eissft 

01537 

01540 
01541 
01542 
01543 
01544 
01549 
01546 
01547 
01550 
01551 
01552 
01553 
81554 
01559 
01556 
01557 
01560 
01561 
01962 
01563 
01564 
01565 
01566 



2134 
7301 
1362 
7430 
5765 
2364 
5302 
3364 
1364 
7124 
7420 
1364 
3364 
1364 
7430 
5769 
4944 
7410 
5769 
7344 

leu 

3014 
1003 
3414 
1362 
3414 
1363 
3414 
7240 
1067 
3067 
1366 
3363 
1467 
2067 
4521 
2363 
9341 
1364 
7041 
1160 
3364 
4921 
2364 
5352 
7346 
1200 
3200 
4943 
5201 



0000 
3000 
0370 
7774 



GSSli 

6882, 

GOIMZi 



I8Z 

CUA CLL 

TAD 
SZU 
JMP I 

I8Z 

JMP 

DCA 

TAO 

CLL CML 

SNL 

TAO 

OCA 

TikO 

SZL 

JMP I 

JMS I 

SKP 

JMP I 

CLA CLL 

TAO 

OCA 

TAO 

OCA X 

TAD 

OCA I 

TAO 

OCA I 

CLA CMA 

TAO 

OCA 

TAO 

OCA 

TAD X 

X8Z 

JM8 X 

I8Z 

JMP 

TAD 

CXA 

TAO 

OCA 

JMS X 

ISZ 

JMP 

CLA CLL 

TAD 

OCA 

JMS X 

JMP 









NOINT 

lAC 

SSSl 

PSPACERR 

G0IM2 

.-4 

601M2 

GDXH2 

PAL 



;e 4-1 

/POBBIO INTERUPT8 NOW, 



G0XH2 
G0XM2 
6DIM2 

P8PACERR 
8PLEFT 

P8PACEPP 

CMA RAL 

IM0EX2 

IN0EX2 

ARRLOC 

IN0EX2 

GS81 

IN0EX2 

GSSZ 

XN0CX2 

ADDRESS 

ADDRESS 

0T7T4 

6882 

ADDRESS 

ADDRESS 

P8TXCKIT 

6SS2 

.-« 
GDXM2 

04 

G0IM2 
P8TICKIT 
GDIM2 

.-« 

CMA RTL 

QETAOOR 

BETAODR 

CNCLR 

GETAD0R4il 



/CHECK FOR CONTROL C. 



PSPACER,SPACERR 
07774, 7774 



r»5ic.i.«e 



P»L««VT 



rCE 4-2 



81572 

aiSTj 
ai5T« 

B1575 



zzxi 

aa77 
^525 
£223 
2322 

1120 

2«e« 



013, t3 

88CRR. JM8 1 PERUOR 

TEXT 'SUBSCRIPT' 



/(12} IP 1 ORG INDEXING 



ei576 


1052 


DEP, 


T*0 LINENO 




B1577 


3013 




DCA INOEXl 




0i6ee 


1«13 




TAD I INOEXl 




0uei 


3220 




DCA U8ERPN 




ei6B2 


4571 




GET*MUSTBE 


/•FN» 


01603 


3754 




3754 




01600 


4571 




CET^I^USTBE 


/A VARIABLE 


01605 


7000 




7000 




0Ue6 


4571 




:£T*MUSTBE 


/'(♦ 


01607 


3755 




3755 




01610 


4571 




6ET*MU8TBE 


/A VARIABLE 


01611 


7000 




7000 




01612 


4571 




SET*MU8TBE 


/•)» 


01613 


3761 




3761 




0161« 


4571 




GET*MU8TBE 


/•■» 


01615 


3673 




3673 




01616 


5617 




JMP I P8KIPI7 




01617 


0467 


P8KIPIT 


,8KIP1T 




01620 


0000 


U8EHFN, 







01621 


4570 


HOREROi 


MU8TBE 


/*,' 


01622 


3763 




3763 




01625 


4513 


READ, 


JM8 I PGETVAR 




01624 


7240 




CLA CMA 




01625 


1049 




TAD LOCCTR 




01626 


3273 




DCA tOCTMP 




01627 


1046 




TAD REAOIOC 




01630 


304S 




OCA UOCCTR 




01631 


4567 




GeT*I$IT 


/(CR) OR 'V* 


01632 


2000 




2000 




01633 


7410 




8KP 




01634 


5260 




jliP SEARCH 




01635 


4566 




I8IT 


/A LINENO 


01636 


0000 




0000 




01637 


7410 




8KP 




01640 


5260 




JMP SEARCH 




01641 


4566 




IBXT 


/'»• 


01642 


3763 




3763 




01603 


5267 




JMP OATAERR 




01644 


4501 


IS80ME, 


JM8 1 PEVAL 




01605 


7240 




CLA CHA 




01646 


1045 




TAD LOCCTR 




01647 


3046 




DCA READLOC 




01650 


1273 




TAD LOCTMP 





pisic 


.Lac 






PAL8-V7 


ei«»5i 


3045 




OCA 


LOCCTR 


eU52 


4512 




JMS I 


P5T0VAR 


?lfc53 


4567 




GET*XSIT /(CR) 


?lfe5a 


2000 




2000 




ei«.55 


5221 




JMP 


MORERO 


fUSfc 


S503 




JMP I 


PEXECUTE 


ei$5T 


4177 


8CHM0R, 


JM8 


CETWD 


01660 


4566 


SEARCH, 


ISIT 


/'DATA* 


21661 


1757 




1757 




ei662 


7410 




SKP 




21663 


5244 




JMP 


ISSOME 


01660 


4566 




ISIT 


/(EOF) 


ei66S 


1755 




1755 




01666 


5257 




JMP 


8CMM0R 


31667 


4477 


DATAERR 


,JMS X 


PERROR 


01670 


0401 




TEXT 'DATA* 


01671 


2401 








01672 


0000 








01673 


0000 


LOCTMP, 







01674 


0000 


SETBLK, 







0167S 


4563 




JM8 I 


PCHKFIT 


01676 


1004 




TAD 


COOELOC 


01677 


3045 




OCA 


LOCCTR 


01708 


1004 




TAB 


COOELOC 


01701 


1356 




TAD 


ABCDEF 


01702 


3004 




DCA 


COOELOC 


01703 


1004 




TAD 


COOELOC 


01704 


3357 




DCA 


BC0EF6 


eires 


1005 




TAD 


P8YMTAB 


01706 


1356 




TAD 


ABCDEF 


01707 


3005 




OCA 


PSYMTAB 


01710 


1445 


GTBKLP, 


TAD X 


LOCCTR 


01711 


2045 




I8Z 


LOCCTR 


01712 


3757 




DCA I 


BCDEF6 


01713 


2357 




isz 


BC0EF6 


0l7l« 


135? 




TAD 


BCOEFG 


01715 


7041 




CIA 




0l7lfc 


1005 




TAD 


PSYMTAB 


01717 


7640 




SZA CLA 




01720 


5310 




JMP 


6TBKLP 


01721 


7240 




CLA CMA 




01722 


1006 




TAD 


N8YMTAB 


01723 


3006 




OCA 


N8YMTAB 


01724 


1165 




TAD 


8SBPTR 


01725 


7040 




CMA 




01726 


1164 




TAD 


PGOLIST 


01727 


3357 




OCA 


BCDEFC 


01730 


1164 




TAO 


PGOLIST 


01731 


3050 




DCA 


WORD 


01732 


1356 




TAO 


ABCDEF 


01733 


1450 




TAO I 


WORD 


01734 


3450 




DCA I 


WORD 


01735 


2050 




ISZ 


WORD 



(CE 4-3 



/UPDATE SYMBOL TABLE NOW, 

/BY ADDING IN CORRECTION FACTOR, 



/MOVE TEXT NOW. 



/NOW CHECK FOR END, 



[$IC,L»E 



Pkl6m\n 



a-A 



eiMb 


2357 




ISZ 




BC0EF6 


eiTjT 


5512 




JMP 




• •5 


?lTae 


1263 




TAD 




P0RC7 


eiTit 


3557 




OCA 




8CDEFC 


?lTa2 


1560 




TAD 




PPF0RLI8 


?I7«S 


3850 




OCA 




mORD 


21T44 


5352 




JMP 




.♦6 


eiTas 


1356 




TAD 




ABCOEF 


BlTab 


1450 




TAD 


I 


mORO 


eii7«7 


3«50 




OCA 


I 


MORD 


eiTSB 


2050 




ISZ 




WORD 


ei75i 


2050 




zsz 




WORD 


B1752 


2357 




ISZ 




BCOEFS 


?1755 


5345 




JMP 




,.6 


01754 


1005 




TAD 




PSYMTAB 


01755 


5674 




JMP 


I 


6ETBCK 


BlTSfc 


7774 


ABCDEF, 


• 4 






01T57 


0000 


BC0EF6, 









01760 


7706 


PPFORLl 


,F0RLI8T*l 


01761 


0000 


PUTJ, 









01762 


M5d6 




.'18 


I 


PFIX 


01763 


7200 




CLA 






01T6« 


1016 




TAO 




ACS 


017^5 


4433 




JMS 


I 


PPUTCM 


01766 


4546 




JH8 


I 


PA NORM 


0IT67 


5761 




JMP 


I 


PUTJ 


01770 


0000 


SETJi 









01771 


4776 




JMS 


I 


PBE6FXX 


0l77i 


4432 




JMS 


I 


PGETCM 


0177S 


3016 




OCA 




ACS 


01774 


4546 




JM8 


I 


PANORN 


01775 


5770 




JMP 


I 


6ETJ 



/GETS A CHARACTER PROM THE TTY. 

/CLEAN UP THE PAC 

/PECTM A CHAR, 

/SAVE IT, BABVl 

/AND NORMALIZE AC, 

/AND RETURN NOM, 



01776 3762 PBEGFlXiBEBPIX 



2000 



PAGE 



02000 




NOTNOM, ISZ 


NOINT 


02001 




ISZ 


WORD 


02002 




TAD I 


WORD 


02003 




SNA 




02004 




JMP 


IN8ER 



/RESET "C SWITCH SO NO INTERUPT NOW, 



"sic. 


.use 




PAl.e«V7 


Hits 


3371 


DC* 


LOhLOC 


Zi?2b 


3a50 


OC* I 


mORO 


^^^^y 


1371 


T*0 


UOWLOC 


?2Cl? 


3ett5 


OCA 


tOCCTR 


22?ll 


<tS10 


JMS I 


PPASSCR 


tiZM 


1371 


cove, T»o 


UOWtOC 


22813 


7B«1 


CIA 




iiZln 


1004 


TAD 


COOEUOC 


?2ais 


7650 


SNA CUA 




?3?16 


5230 


JMP 


IN8R75 


ejziT 


7340 


CUA CUL 


CMA 


ZiZiZ 


1371 


TAD 


UOMLOC 


8202t 


3371 


OCA 


LOhLOC 


22222 


7340 


CLA CIL 


CMA 


02023 


1045 


TAO 


UOCCTR 


?2a2a 


3045 


DCA 


UOCCTR 


ZZZZi 


1771 


TAD I 


UOWLOC 


92026 


3445 


OCA I 


UOCCTR 


92027 


5212 


JMP 


HOVE 


02030 


1045 


XN8RT5, TAO 


UOCCTR 


22031 


3004 


):a 


COOEUOC 


02032 


1057 


INSERT, TAO 


PPTR 


02033 


1040 


TAO 


MUINBUF 


02034 


7040 


CMA 




02035 


3057 


OCA 


PPTR 


02036 


7326 


CUA CUL 


CMU RTU 


0203T 


1057 


TAO 


PPTR 


02040 


7450 


8NA 




02041 


5313 


JMP 


PIXUIN 


02042 


7040 


CMA 




02043 


4563 


JMS I 


MMKPXT 


02044 


1004 


TAO 


COOELOC 


0204S 


3045 


DCA 


UOCCTR 


02046 


143T 


TAD X 


PUINBUF 


02047 


7001 


I AC 




02050 


3013 


OCA 


INDEXl 


02051 


1413 


TAO I 


INOEXl 


02052 


3073 


OCA 


OPERAND 


02053 


1413 


TAD I 


INDEX! 


02054 


3074 


OCA 


OPERANO^l 


02055 


4336 


JHS 


COMPARE 


02056 


5261 


JMP 


NOTFRST 


02057 


4361 


JMS 


8UBRA 


02060 


5303 


JMP 


TRANSF 


02061 


4510 


NOTFRSTiJMS I 


PPASSCR 


02062 


4336 


JMS 


COMPAR 


02063 


5261 


JMP 


NOTFRST 


02064 


1045 


TAO 


UOCCTR 


02065 


3360 


OCA 


U8TU0C 


02066 


1004 


TAO 


COOEUOC 


02067 


3045 


OCA 


UOCCTR 


02070 


4361 


JMS 


9UBRA 


02071 


4177 


JMS 


6ETM0 


02072 


1050 


MOVUU»»» TAD 


WORD 


020T1 


3772 


OCA I 


PUTUOC 



il 4-5 



^irsic 


.lit 


9il1t 


2372 


?aCT5 


0177 


P8?7fc 


I3be 


P2B77 


7001 


ejiee 


1005 


02101 


7b«e 


02102 


5272 


82103 


1037 


82100 


3060 


92ies 


1060 


92106 


2060 


0210T 


3772 


02110 


2372 


02111 


2057 


02112 


5305 


02113 


0561 


02110 


5520 



P*Le"V7 



0<>6 



ISZ 
JMS 
T*0 
CIA 
T*0 
SZA 
JMP 

TRANSF, TAO 
OCA 

TRALUP, TAO 
ISZ 
OCA 
ISZ 
ISZ 
J MP 

fUllH, JMS 
J HP 



CLA 



PUTLOC 

GETWO 

kSTLOC 

UOCCTR 

MOVLUP 

PLINBUP 

CPTR 

SPT« 

GPTR 

PUTLOC 

PUTLOC 

FPTR 

TRALUP 

PLINPIX 

PtOIT 



02115 0000 IGNORE, d9 



/THIS ROUTINE LOOKS FOR A "S" OR A C,R. 



WisiC 


.L«E 




P»U»»V7 


WPGE 5 


esub 


aSbT 


GET*I81T 




?2U» 


saee 


5000 




/TEXT? 


tiXiZ 


iS2T 


JMP 


NOTBiO 


/NOPE, 


S2i21 


«177 


JM8 


SETwO 




22122 


tesa 


T40 


^ORD 




ert2S 


2070 


AND 


077 




e2i2s 


7bae 


SZ* CU* 




/END OP TEXT? 


e2t2S 


5321 


JHP 


.-« 


/NOPE, 


S212b 


5316 


JMP 


IGNORE*l 


/VEP, GET NEXT ITEM. 


02127 


a5T5 


NOTBAO, JMS I 


PI51TL1T 


/I» IT A LITERAL? 


021Se 


7«10 


SKP 






02131 


5316 


JMP 


IGNORE*! 


/YES, 


22132 


4566 


18IT 






92133 


2000 


2000 




/"N" OR C,R, 


02136 


5316 


JMP 


IGNORE*! 


/NO 


02135 


5715 


JMP I 


IGNORE 


/VE8, RETURN TO CALLER, 



02136 

02137 

02160 

02iai 

02U2 

02143 

02iaa 

0214S 

02U6 

0214T 

02150 

02151 

02152 

02153 

02154 

02155 

02156 

02157 

02160 

02161 

02162 

02163 

02164 

02165 

02166 

02167 

02170 

02171 

02172 



0000 
4567 
0000 
5356 

1050 
7001 
3013 
1413 
7141 
1073 
7640 
5355 
1413 
7141 
1074 
7620 
2336 
5736 
0000 
0000 
1057 
7100 
1004 
3004 
1004 
3372 
5761 
0000 



COMPARE, 

GET*I8IT 



/A LINENO 



JMP 

TAO 

XAC 

OCA 

TAD I 

CLL CIA 

TAD 

8ZA CIA 

JMP 

TAO I 

CLL CIA 

TAO 
FR5TNE, SNL CLA 
lAMLESSiISZ 

JMP I 



L8TL0C, 
SUBRA, 



LOWLOC, 
PUTLOC, 







TAD 

CLL 

TAO 

OCA 

TAO 

OCA 

JMP 







IAMLES8 
WORD 

INOEXl 
INDEX! 

OPERAND 

PR8TNE 
INDEX! 

OPERAND*.! 

/IS 0PERAND4THI8 LINENO 

COMPARE /VE8 
COMPARE 



PPTR 

COOELOC 

COOELOC 

CODELOC 

PUTLOC 

SUBRA 



« 



iSIC.USE 



«>*U»-V7 



(GE S-1 



asiTJ 


•irr PRINT, JM» 


6CTM0 


CiSlTfl 


Tilth 


CLA CLL 


CMA RTU 


B21T5 


\Ml 


TAO 


OUTOCV 


B21T6 


1131 


7*0 


OUTDEV 


0217? 


1131 


TAO 


OUTOEV 


e22(!<e 


13»1 


TAO 


one 


02201 


3357 


OCA 


TWIOTH 


02202 


4966 


I81T 




02203 


3763 


3763 




0220A 


5207 


JMP 


PRINTC 


02265 


5277 


JMP 


PRINBLK 



/TMI8 INSTRUCTION MAY BE COMBINEO WITH THE GET INSTRUCTION BEL 
/7775»-3 FOR OEVICE CHECK, 
/MUUTIPLV OEVICE BY 3. 

/SO THAT LPT«6, PTP»3, AND TTV«B, 
/NOW ADO IN 72, THUS TTY'72iLPT"8B, 
/AND SAVE FOR FUTURE USE, 

/CHECK FOR FIRST COMfA, ONCE ONLY CHECK, 

/NO, CONTINUE CHECKING, 

/YEP, GIVE BLANK, THEN TAB OVER, 



02206 «177 PRINTG, JM8 

02207 S5«l PRINTC, OCA 
0221B 4566 I8IT 
02211 2800 2800 



02212 5216 



J MP 



GETMD 
TABFL6 

NOPCR 



02213 


4514 


JHS I 


PPHINTXT 


02214 


6S31 


CRLF 




02215 


5503 


JMP I 


PIXECUTE 


02216 


4566 


NOPCR, ISXT 




02217 


3763 


3763 




02228 


5316 


JMP 


PRENT 


82221 


5383 


JMP 


PRINCOM 


02222 


4966 


PRINTHSrlSIT 




02223 


5888 


5008 




02224 


5236 


JMP 


NOTTXT 


02225 


4177 


PRINQUO,JMS 


GETMD 


0222* 


1858 


TAO 


MORD 


02227 


7012 


RTR 




02238 


7812 


RTR 




02251 


7812 


RTR 




02232 


4268 


JMS 


PRINHAF 


02233 


1058 


TAO 


WORD 


02234 


4268 


JMS 


PRINHAF 


02235 


5229 


JMP 


PRINOUO 


02236 


1241 


NOTTXT, TAO 


PPRINRET 


02237 


5640 


JMP I 


PEVALGO 


02240 


1887 


FEVAL60,EVAL60 




02241 


2242 


PPRINRE,PRINRET 




22242 


1349 


PHINRET.TAD 


TABFLG 



/GET NEXT ELEMENT AFTER A TEXT ELEMENT, 

/RESET TAB INDICATER, 

/CHECK TO SEE IF CARRIAGE RETURN. 

/NOT A CARRIAGE RETURN. CONTINUE CHECKING. 



/IS IT A COMMA (»,«) 

/NO, FINISH CHECKING BELOM. 
/IT IS, PROCESS THE COMMA NOW, 

/TEXT 



/WAS THERE A TAB PRESENT? 



lIC.LSt 



PAL«"Vr 



5-8 



22243 7b4e 9Z* CL* 

eZiau 5Tb2 JMP I 

^^i*l5 like t*o 

022ttb oSttft J^S 

02247 I02a TAO 

022SB 7710 SPA CLA 

02251 5254 JMP 

02252 1051 TAO 

02253 4433 JMS I 

02254 4517 JMS 1 

02255 1051 T*D 

02256 4433 JMS I 

02257 5207 JMP 

02260 0000 PRINHAP,0 

02261 0070 AND 

02262 7050 SNA 

02263 5206 JMP 

02264 1326 TAD 

02265 7450 SNA 

02266 5660 JMP I 

02267 1062 "^'O 

02270 0070 <ND 

02271 1051 TAO 

02272 3024 DCA 

02273 4346 JMS 

02274 1024 TAD 

02275 4453 JHS X 

02276 5660 JMP X 

02277 7200 PRINBLK.CUA 

02300 10St TAD 

02301 4433 JH8 I 

02302 4346 JMS 

02303 1126 PRINCOMiTAD 

02304 7450 SNA 

02305 5312 JHP 

02306 1327 TAO 

02307 7500 SMA 

02310 5304 JMP 

02311 5277 JMP 



TABTHB 
014 

CHECK* 
ACS 

.♦3 

0240 

PPUTCH 

POUTNUM 

0240 

PPUTCH 

PRINTC 

077 

PRXNTG 
007736 

PRINHAF 

02 

077 

0240 

ACS 

CHfCKW 

ACS 

PPUTCH 

PRINHAP 



0240 
PPUTCH 
CHECKS 
COLUHN 

PRXNSIM 
07762 

.-4 

PRINBLK 



/YEP, EXECUTE TAB CORRECTER. 
/SEE IF ROOM FOR 13 PLACES (1*12) , 



/GO BACK AND GET NEXT. 



/GO SKIP PAST TEXT ELEMENT AND CHECK NEXT. 



/SAVE CHARACTER FOR A SECOND. 

/CHECK TO SEE XF IT'LL FIT ON THE LINE. 

/RESTORE THE CHARACTER, 



/HAKE SURG AC IS ZERO. 



/CHECK TO SEE IF ROOM FOR ONE MORE. 
/SEE IF COLUMN ON COMMA BOUNDRY. 

/YEF, 

/SUBTRACT A LITTLE AN CHECK AGAIN. 

/TOO FAR? 

/NOPE, 

/YEP. GIVE BLANK AND LOOP AGAIN. 



02312 4567 PRINSEM,GET«ISIT 



/{CRJ OR »\' 



2000 
8KP 
JMP I 
I8IT 
3762 
SKP 
JMP 
I81T 
3763 
JMP 
JMP 
7736 007736» 7736 
7762 07762, 7762 



02313 2000 

02314 7410 

02315 5503 

02316 4566 PRENT, 

02317 3762 

02320 7410 

02321 5312 

02322 4566 

02323 3763 

02324 5222 

02325 5277 
02326 
02327 



PEXECUTE/YES 
/*»• 



PRIN8EM /YES 



PRINTH8 
PRINBLK 



W4SIC 


.L«E 








PALS-V7 


?2330 


0003 


LiNrix, 









e?331 


100«i 




TAD 




COOELOC 


e?33? 


JiJttS 




DC* 




LOCCT» 


Zilil 


air? 


LFXLUP, 


JM8 




StTwO 


0233tt 


1450 




TAO 


I 


MORD 


fiiin 


T643 




SZA 


CLA 


/IS 


02336 


5730 




JMF 


X 


(.IKflX /NO 


02337 


2050 




I8Z 




MORD 


023(10 


72a0 




CLA 


CMA 




02301 


ie«5 




TAO 




LOCCTR 


02342 


3ase 




OCA 


I 


MORD 


02303 


4510 




JMS 


I 


PPAS8CR 


023tt« 


5333 




JMP 




U^XLU^ 


023«5 


0000 


TABFLCi 










• E 5-3 



IT A LINENO 



/TAB FOUND FtAfi. 



02346 0000 CHECKWr El 



02347 1126 

02350 7040 

02351 13S7 

02352 7700 

02353 S746 

02354 4514 

02355 6531 

02356 5746 



AD COLUMN 
CMA 

TAO TWIOTH 
SMA CLA 

JMP I CHICKW 
JM8 I PPRINTXT 

CRUF 

JMP I CHECKM 



02357 0000 TWIOTH, 

02360 0014 014, 14 

02361 0110 one, 110 

02362 6350 TABTHR, TABOO 



/THIS ROUTINE CHECKS FOR LINE TOO LONG, 

/SET MHERE AT NOM, 

/-MHEREAT««OF PLACES IN OUT CHAR. 

/ADO IN WIDTH OF Or.VlCC. 

/TOO BI6. 

/NAH, RETURN TO SENDER, 

/YEP, GIVE C.R.L.F, 

/AND RETURN TO SENDER, 

/0 IS OK SINCE IT'LL BE SET UP CORRECTLY. 
/MAGIC CONSTANT, 
/WDTM OF TTY PAPER, 

/ROUTINE WHICH PROCESS TAB CHARACTER, 



02363 0073 HENDPDL,*ENDP0L"1 



02364 


0000 PUSH, 


02365 


3436 


OCA I POL 


02366 


2036 


ISZ FDL 


02367 


1036 


TAD POL 


02370 


1363 


TAD MENDPOL 


02371 


7640 


SZA CLA 


02372 


5764 


JMP I PUSH 


02373 


4477 


JH8 I PERROR 


02374 


0530 


TEXT 'EXPRESSIO 


02375 


2022 




02376 


0523 




02377 


2311 




02400 


1716 




02401 


0000 





rsic.ust 



PAL8«vr 



5-« 



02402 

02403 
020011 

ezoes 
e2afl6 

02407 

02410 

02411 

02412 

02413 

02414 

02413 

02416 

0241T 

02420 

02421 

02422 

02423 

02424 

02425 

0242ft 

02427 

02430 

02431 

02432 

02433 

02434 

02435 

0243ft 

02437 

02440 

02441 

02442 

02443 

02444 

02445 

02tt4ft 

02447 

02450 

02451 

02452 

02453 

02454 



4541 

1007 
4433 
1010 
4433 

n30 

3131 

4543 

1362 

4524 

1437 

3050 

1450 

7ft50 

57ftft 

1010 

4433 

1130 

3131 

«5ftft 

373ft 

7410 

5252 

45ftft 

3757 

7410 

S7ft3 

4Sftft 

3735 

5254 

13ft5 

3004 

13ft4 

37ftS 

13ft5 

7001 

3005 

7240 

300ft 

4537 

4262 

5503 

1037 



EXIT, 



eoiT, 



JMS I 

TAD 

JMS X 

TAO 

JMS I 

TAD 

OCA 

JMS 1 

HD 

.MS I 

TAD I 

DC A 

TAD I 

SNA CLA 

JMP I 

TAD 

JMS X 

TAD 

DCA 

I8IT 

373ft 

SKP 

JMP 

ISXT 

3737 

SKP 

JMP I 

I8IT 

3735 

JMP 



PCOWT 

0215 

PPUTCM 

0212 

PPUTCM 

0UTD2 

OUTOEV 

CNCtR 

PXXTMEM 

PfiCTLXN 

PLINBUP 

MORD 

MORD 

PNOTNOW 
0212 

PPUTCM 

0UTD2 

OUTOEV 



SCRATCH, TAO 
OCA 



RUN 



PLXST 



/WAIT POR BUFFER TO EMPTY AND THEN CONTINUE, 



/RESET DEVICE 

/CHECK TO SEE IF "C WAS TYPED. 



/RESET I/O DEVICE. 



/•RUN* 



/•LIS* 



/'SCR* 



RUN* 
IMMEO, 



TAD 
DCA X 
TAD 
lAC 

DCA 

CUA CMA 
OCA 
JM8 I 
JMS 
JMP I 
TAD 



IMMED 

PPERMSYM 

CODEkOC 

PXXEOF 

PPERMSYM 
PPERMSYM 

P8YMTAB 

N8YMTAB 
PRESET 

CLEARV 

PEXECUTE 

PLINBUF 



/RESET DEVICES AFTER SCRATCH. 



rsiC.L«£ P*L8-V7 pWE 5-5 



?2a55 


30«5 




OCA 


UOCCTR 




zaast 


tSbO 




T*0 


PXXEOP 




72tt57 


3052 




OCA 


lInENO 




72060 


5503 




JMP 1 


PEXECUTE 




ajttfci 


7400 


PJ8CT, 


SETUP 






02462 


0000 


CICARV, 









02«63 


tt66t 




JMS I 


PJSET 




ZiUba 


5303 




JMP 


RUN IN 




02»65 


lfl56 


RUNUUPi 


TAD I 


EPTR 




02066 


1360 




TAO 


O700eA 




02067 


7640 




SZA CLA 




/IS IT A VARIABLE 


^2070 


527T 




JMP 


fiUNNOT 


/NO 


02«n 


2056 




ISZ 


EPTP 




02«72 


1«S6 




TAD 1 


EPT» 




02«73 


3060 




DCA 


GPTR 





ISIC.LSE 



P*L8-V7 



It h 



32^74 


U60 




T*D 


I 


5PTR 




?2tt75 


5456 




OCA 


I 


EPTR 




32«7b 


7418 




SKP 








22477 


28S6 


RUNNOT, 


ISZ 




EPTR 




22500 


2256 




I8Z 




EPTR 




22521 


2856 




ISZ 




EPTR 




^^5^^ 


2856 




ISZ 




EPTR 




82505 


2857 


RUNIN, 


ISZ 




fPTR 




isasza 


5265 




JMP 




RUNtUP 




?3535 


1561 




TAD 




PUIMIT 




Z2506 


3803 




OCA 




ARRLOC 




82507 


1805 




TAD 




PSVMTAB 




22510 


3856 




DCA 




EPTR 




82511 


1806 




TAD 




NSYMTAB 




82512 


3057 




DCA 




PPTR 




(32513 


5543 




JMP 




RUN2IN 




82514 


1456 


RUN2LUP 


,TAD 


I 


EPTR 




82515 


1368 




TAD 




O7000A 




82516 


7640 




SZA 


CUA 


/IS IT 


A VARIABLE 


0251T 


5337 




JMP 




RUN2N0T /NO 




82528 


2856 




^sz 




EPTR 




82521 


1456 




\AD 


I 


EPTR 




82522 


3031 




OCA 




TMR 




82525 


1003 




TAD 




ARRLOC 




82524 


3456 




DCA 


I 


EPTR 




02S2S 


10St 




TAD 




TMP 




02526 


4921 




JM8 


I 


P8TICKIT 




02527 


4521 




JM8 


I 


PSTICKIT 




02530 


4921 




JM8 


I 


PS TICK IT 




02531 


4921 




JM8 


I 


PSTICKIT 




02932 


2096 




ISZ 




EPTR 




02533 


3456 




OCA 


I 


EPTR 




02534 


2056 




ISZ 




EPTR 




02935 


3456 




DCA 


I 


EPTR 




02936 


5342 




JMP 




.♦4 




0293T 


2096 


RUN2N0T 


,I8Z 




EPTR 




02540 


2096 




ISZ 




EPTR 




02541 


2856 




ISZ 




EPTR 




02542 


2056 




ISZ 




EPTR 




02543 


2097 


RUN2IN, 


ISZ 




PPTR 




82544 


5314 




JMP 




RUN2LUP 




82545 


1004 




TAD 




CODELOC 




82946 


3045 




DCA 




LOCCTR 




0254T 


1129 




TAD 




PP0LI8T 




02550 


3036 




DCA 




POL 




02551 


1004 




TAO 




COOEtOC 




02552 


3046 




OCA 




REAOUOC 




02553 


7240 




CLA 


CMA 






0255« 


3063 




OCA 




PORCT 




02555 


1164 




TAD 




PGOLIST 




025S6 


3165 




DCA 




S8BPTR 




02557 


5662 




JMP 


I 


CLEARV 




82960 


7000 


O7000A» 


7000 






82561 


0003 


I»IIMIT, 


LIMIT 


/FIRST 


WORD OP Ut 


02562 


7253 


(iXXTHCN 


irXXTHEN 







t 



TBiSlc 


.L»E 






PULi 


ees(>s 


UZ9 


PL18T, 


LIST 




ee5b« 


7502 


PttlOP, 


XXEOF 




B25fc5 


yiii 


PPEBMSV 


,PtHM5VM 




?85bfe 


2?88 


PkOTNO*" 


,NOTt>iOW 




ezsbT 


42b2 


E^JO, 


JMS 


CLEAHV 


?85Te 


4537 


STOP, 


JHS I 


PRESET 


02571 


a5ai 




JMS 1 


PCOWT 


825T2 


4St« 




JMS I 


PPRINTXT 


92573 


6525 




READY 




0257« 


5520 




JMP I 


P€DIT 



PAL6-V7 



rSE b«l 



/RESET AU DEVICES NOW, 

/ANO WAIT FOR I/O TO FINISH UP, 

/AND GIVE THE STOP MESSAGE 



2660 



PAGE 



02fcBI 


4561 


GETLRET 


,JMS 


I 


PLXNPIX 


0260! 


«5«S 




JMS 


I 


CNCLR 


02fe02 


5603 




JMP 


1 


GETLIN 


02*03 


0008 


6ETLIN, 









0260* 


3064 




OCA 




8NUMFLG 


02»0S 


1131 




TAO 




OUTDEV 


0260* 


3130 




OCA 




0UT02 


02607 


3131 




OCA 




OUTDEV 


02610 


IITZ 


NEWLIN, 


TAD 




PL8EGIN 


02611 


3056 




OCA 




EPTR 


02612 


1370 




TAO 




040 


026 IS 


3«S6 




OCA 


I 


EPTR 


0261« 


2056 




I9Z 




EPTR 


02615 


4432 


NEWCHAR 


,JM8 


I 


PGETCH 


02616 


3456 




OCA 


I 


EPTR 


02617 


7240 




CLA 


CMA 




02622 


1127 




TAO 




INDEV 


02621 


7640 




SZA 


CLA 




02622 


5226 




JMP 




,♦4 


02623 


3133 




OCA 




CNTLO 


0262* 


7201 




CLA 


lAC 




0262S 


3131 




OCA 




OUTDEV 



/CHECK TO SEE IF »C WAS TYPED WHILE HEBE, 



/GET THE OUTPUT DEVICE, 

/SAVE FOR A SECOND. 

/TURN OFF THE OUTPUT DEVICE, 



/CHECK THE INPUT DEVICE NOW, 

/GET ITi BABY, 

/IS IT THE TTYT 

/NOPE. 

/IT 18, RESET CONTROL 0, 

/AND TEMPORARILY SET THE OUTPUT TO THE TTY, 



Wtsic 


.t«E 








PALB-V7 


IWBE 6-2 


Ziblh 


1456 




TAD 


I 


tPTR 






P2b8T 


1370 




T*0 




07603 






02630 


7050 




SNA 






/IS IT 


AUT-MOOE (175) 


82031 


5263 




JMP 




ALTMOOE 


/YES 




22632 


1367 




TAD 




036 






22*33 


7050 




SNA 






/IS IT 


J. 


«»2fc3« 


5266 




JMP 




BARROW 


/YES 




02635 


1371 




TAO 




0122 






02636 


7050 




SNA 






/IS IT 


(CAR, RET.) 


32637 


5300 




JMP 




GARRET 


/YES 




02640 


1375 




TAO 




07715 






02601 


7450 




SNA 






/IS IT 


*$* 


02602 


5215 




JMP 




NEWCHAR 


/YES 




026(13 


0372 




AND 




O140B 






02604 


7440 




SZA 










02605 


1363 




TAO 




O7640B 






02606 


7640 




SZA 


CLA 




/IS IT 


A PRINTABLE CHARACTER 


026flT 


5215 




JMP 




NEWCHAR 


/NO 




02650 


14S6 




TAO 


I 


EPTR 






026S1 


4433 




JMS 


I 


PPUTCM 






02652 


1056 




TAO 




EPTR 






02653 


2056 




ISZ 




EPTR 






02654 


1174 




TAO 




MLENO 






02655 


7640 




SZA 


CLA 








02656 


5215 




JMP 




NEwCHAR 






02657 


45J7 


TUBZGf 


JMS 


I 


PRESET 




/RESET ALL DEVICES NOW, 


02660 


4514 




JMS 


I 


PPRINTXT 


/AND GIVE THE ERROR MESSAGES. 


02661 


5162 




TOOLONG 








02662 


5210 




JMP 




NEWLIN 






02663 


4514 


ALTMODE 


,JHS 


I 


PPRINTXT 




02664 


6501 




DELETED 








02665 


5210 




JHP 




NEWLIN 






02666 


1056 


BARROW, 


TAO 




EPTR 






02667 


117S 




TAO 




HLBEGIN 






02670 


7650 




SNA 


CLA 








02671 


5215 




JMP 




NEWCHAR 






02672 


72«e 




CLA 


CMA 








02673 


1056 




TAD 




EPTR 






02674 


3056 




OCA 




EPTR 






02675 


1373 




TAD 




03737B 






02676 


0433 




JMS 


I 


PPUTCM 






02677 


5215 




JMP 




NEWCHAR 






02700 


1007 


CARRET, 


TAO 




0215 






02701 


4433 




JMS 


I 


PPUTCM 






02702 


2134 




ISZ 




NOINT 




/SET FLAG TO PREVENT INTERUPTS AS OF NOW, 


02703 


1172 




TAO 




PLBEGIN 


/EPTR" 


BEGINNING OF STRING 


02704 


3056 




OCA 




EPTR 


/PPTR« 


WHERE TRANSLATED SYMBOL GOES 


02705 


1037 




TAO 




PLINBUP 


/GPRE* 


CHAR IN STRIN6(.GE. EPTR) 


02706 


S0ST 




OCA 




PPTR 


/HPTR" 


POSITION IN TABLE 


02707 


1377 


SLOOP, 


TAO 




PTABLB 






02710 


3061 




OCA 




HPTR 






02711 


1056 


GUOOR, 


TAO 




EPTR 






02712 


3060 




OCA 




GPTR 






02713 


1461 




TAO 


I 


HPTR 






02714 


7650 




SNA 


CLA 









Wisic 


.l8€ 






PA 


aens 


577* 




JMP I 


POTHER 


P2Tlfc 


12*1 




TAD 


mPTR 


parjT 


3350 




DCA 


WORD 


^^T^^ 


itbi 




ISZ 


HPTR 


a2T2i 


3024 




DC* 


ACS 


P2T22 


14*0 


HLOOP, 


T*0 I 


CPTR 


ezTjs 


1054 




TAD 


07740 


e2T2* 


7*48 




SZA CLA 




02T25 


5330 




JMP 


BSKIP 


iZTZb 


23*0 




ISZ 


GPTR 


82T2T 


5322 




JMP 


MLOOP 


02730 


7330 


BSKIP, 


CLA CLL 


CML RAH 


0273! 


1024 




TAO 


ACS 


02732 


3024 




OCA 


ACS 


02733 


14*1 




TAO I 


MPTR 


02734 


7^30 




SZL 




02735 


20*1 




ISZ 


HPTR 


0273fc 


7430 




SZL 




02737 


5343 




JMP 


.*« 


02740 


7012 




RTR 




02781 


7012 




«TR 




02742 


7012 




RTR 




02743 


3878 




AND 


077 


02744 


7458 




SNA 




«745 


57** 




JMP 1 


JMATCH 


0274k 


1054 




TAD 


07748 


02747 


7458 




SNA 




02758 


5330 




JMP 


BSKIP 


02751 


0070 




AND 


077 


82752 


1578 




TAD 


048 


02753 


7041 




CIA 




02754 


1468 




TAO I 


GPTR 


02755 


28*8 




I8Z 


GPTR 


02756 


7*58 




SNA CLA 




02757 


5322 




JMP 


HLOOP 


027*0 


14*1 




TAD I 


HPTR 


027*1 


0878 




AND 


077 


027*2 


28*1 




ISZ 


HPTR 


027*3 


7*40 


07*408, 


SZA CLA 




027*4 


53*0 




JMP 


.-« 


027*5 


5311 




JMP 


6L00P 


027** 


*58* 


JHATCH, 


AMATCH 




027*7 


083* 


03*, 


36 




02778 


0848 


0«8f 


48 




82771 


0122 


0122, 


122 




02772 


0140 


O140B, 


148 




02773 


3737 


037378, 


3737 




02774 


7*03 


07*03, 


7603 




82775 


7715 


07715, 


7715 




8277* 


3000 


POTHER, 


OTHER 




02777 


7023 


PTABtE, 


XXPLUS 





PAL8-V7 



rcE *-3 



UsiC.tSE 



PAI.A-VT 



rCE hmi 



iZii 



PAGE 



Ttsaee 


a310 


OTHER, JM8 




NONBLNK 


zizn 


1301 


T*0 




07763B 


03ee2 


7a«0 


SZ4 






03803 


5223 


JMP 




NOTCR 


030ea 


1325 


TAD 




PXXCRLF 


03005 


3457 


OCA 


I 


FPTB 


03^06 


1057 


TAO 




FPTR 


03007 


3013 


DC4 




INDEX 1 


03010 


1326 


TAO 




PXXEXIT 


03011 


3413 


OCA 


I 


INDEXl 


03012 


1013 


TAO 




INDEX 1 


03013 


1041 


TAO 




MENDLIN 


030 1« 


7450 


SNA 






03015 


5622 


.'MP 


I 


PGETLBET 


030U 


7710 


SFA 


CLA 




03017 


5210 


JMP 




.-T 


03020 


5621 


JMP 


X 


PTUBIG 


03021 


2657 


PTU0I6, TUBI6 




03022 


2600 


PGETWREiSETLRET 




03023 


1328 


NOTCRi TAO 




07737 


0S02a 


7450 


SNA 






03025 


5724 


JMP 


I 


JDX6IT 


03026 


1302 


TAO 




07764B 


03027 


7100 


CU 






03030 


106S 


TAO 




012 


03031 


7450 


8ZL 






03032 


5724 


JMP 


I 


J0X61T 


03033 


1300 


TAO 




0772SA 


0303« 


7100 


CLU 






asess 


1321 


TAO 




0S2 


030Sfc 


7430 


8ZL 






03037 


5703 


JMP 


I 


PLETTEH 


03040 


7330 


CLA 


CLL 


CML RAR 


030<ll 


1456 


TAO 


I 


EPTR 


03042 


3456 


OCA 


1 


EPTR 


03043 


1076 


REMPACKfTAD 




PTEXT 


03044 


3457 


OCA 


I 


FPTR 


03045 


2057 


X8Z 




FPTR 


0304fc 


3307 


TXTPAK, OCA 




TM18TXT 


03047 


1456 


TAD 


1 


EPTR 


03 050 


1301 


TAO 




0776SB 


03051 


7450 


SNA 






03052 


5276 


JMP 




CRINTXT 


03053 


1304 


TAO 




07753 


03054 


7650 


SNA 


CLA 




03055 


5370 


JMP 




OOINTXT 


03056 


1456 


TAD 


1 


EPTR 


03057 


0070 


AND 




077 



MASIC 


.U8t 






PALS 


03060 


3456 




OCA X 


EPTR 


ZlZkl 


1307 




TAO 


TH187XT 


03062 


74b0 




SNA 




03063 


5270 




JMP 


LMAUP 


03064 


1456 




TAO I 


EPTR 


03065 


3457 




OCA I 


FPTR 


03066 


2057 




isz 


FPTR 


03«)67 


5274 




JMP 


RHALP 


030T0 


1456 


LHAL^, 


TAO I 


EPTR 


03071 


7106 




CU RTU 




03072 


7006 




RTL 




03073 


7006 




BTL 




03070 


2056 


RH*LF» 


ISZ 


EPTR 


03075 


5246 




J HP 


TXTPAK 


03076 


1307 


CRINTXT 


,TAO 


THISTXT 


03(977 


5723 




JMP I 


JTXXIT 


03100 


7725 


07725A, 


7725 




03101 


7761 


07763B, 


7763 




03102 


7764 


07764B, 


7764 




03103 


3446 


PLETTER 


, WETTER 




03104 


7753 


07753, 


7753 




03105 


4200 


04200, 


4200 




03iefc 


0042 


042, 


42 




03107 


0000 


TH18TXT 


• 




03110 


0000 


NONBLNK 


,9 




03111 


14S6 




TAD I 


EPTR 


03112 


1054 




TAO 


07740 


03113 


7640 




SZA CLA 




03110 


5317 




JMP 


.*s 


03115 


2056 




ISZ 


EPTR 


0311b 


5311 




JMP 


NONBLNK^l 


0311T 


14S6 




TAO I 


EPTR 


03120 


5710 




JMP 1 


NONBLNK 


03121 


0032 


032, 


32 




03122 


7737 


07737, 


7T37 




03123 


3201 


JTXXIT, 


MTXXIT 




0512a 


3204 


JDI6IT, 


DIGIT 




03125 


7226 


PXXCRLF 


,XXCRIP 




0312b 


7505 


PXXEXIT 


,XXEXIT 




03127 


0072 


POPERA, 


OPERAND' 


•1 


03130 


7506 


PXXI.IT0 


fXXLlTB 




03131 


4435 


LITRAL, 


PENTER 




03132 


2073 




PST 


OPERAND 


03133 


0000 




PEXIT 




0313a 


1075 




TAD 


0PERAN0*2 


0313S 


7640 




SZA CLA 




03136 


5346 




JMP 


ALLS 


03137 


1074 




TAO 


0PERAN0*1 


031tt0 


7640 




SZA CLA 




03141 


5347 




JMP 


JUST2 


03142 


1073 




TAO 


OPERAND 


03143 


7650 




SNA CLA 





rGE 6-5 



UsiC.LSE 



PAI.8-V7 



• E 6-6 



«!S1«4 
B3U5 

P3ia6 
JISU7 
?3150 
03151 



S3S0 

T5fl« 
T001 

1062 

3031 



JUSTl, 

ALLS, 

JUST2, 

JUST0, 



JMP 
CL« 
lAC 
TAO 
CM* 
OCA 



CLL 



JUS re 

CMA RA4. 

02 

TMP 



t 



Tb*sic 


.l.8£ 






PALI 


03192 


1327 


TAD 




POPERA 


!»3153 


3013 


DC* 




INOEXl 


a3j5« 


1231 


TAD 




IMP 


a3l!>5 


7240 


CMA 






?!315* 


1330 


TAO 




PXXLITB 


03157 


S363 


jn? 




JU8TBP 


03160 


6201 


JUST0F, CDF 







03161 


H13 


TAO 


I 


INOEXl 


03162 


6211 


CDF 




10 


03163 


3857 


JU8T0R, OCA 


I 


FPTR 


03160 


2057 


isz 




FPTR 


03165 


2031 


I8Z 




TNP 


03166 


5360 


J MP 




JUSTBF 


0316T 


5516 


jnp 


1 


PSLOOP 


03170 


1307 


0Q1NTXT,TAD 




TMI8TXT 


03171 


2056 


ISZ 




EPTR 


03172 


7440 


SZA 






03173 


5376 


JMP 




,♦3 


03174 


1305 


TAO 




04200 


03175 


5723 


JMP 


I 


JTXXIT 


03176 


1306 


TAO 




042 


03177 


3457 


OCA 


I 


FPT0 


03200 


2097 


ISZ 




FPTR 


03201 


3457 


MTXXIT, OCA 


I 


FPTB 


03202 


2057 


ISZ 




FPTR 


03203 


5516 


JMP 


Z 


PSLOOF 


03204 


7200 


DI6XT, CLA 






03205 


1464 


TAO 


I 


8NUMFLC 


03206 


1376 


TAO 




01774 


03207 


7440 


SZA 






03210 


7001 


lAC 






03211 


7440 


SZA 






03212 


1375 


TAD 




01742 


03213 


7650 


SNA 


CLA 




0321« 


7240 


CLA 


CMA 




03215 


3064 


OCA 




SNUHFLG 


03216 


4435 


FENTER 




03217 


3152 


FLO 




ZERO 


03220 


0000 


FEXIT 




03221 


S36S 


OCA 




OPFLAG 


03222 


3366 


OCA 




DECFRAC 


03223 


7«10 


SKP 






03224 


2056 


0I6IN» ISZ 




EPTR 


03225 


4522 


JM8 


I 


PNONBLNK 


03226 


1316 


TAO 




07673 


03227 


7450 


SNA 






03230 


S263 


JMP 




IT8E 


03231 


1370 


TAO 




027 


03232 


7450 


SNA 






03233 


5256 


JHP 




ITSOP 



rCE 7 



/ft,f*»ff*f,» e K INSERT, 
/fff0ffftfft» 8 K INSERT. 



/IS IT 'OOTO* OR 'THEN* 

/OR 'GOSUB' 

/OR 'LIST' 
/YES 



W4SIC 


.L9£ 






' PAL«-V7 


Z52S« 


1374 


T*0 




07764C 


?3255 


nea 


CLL 






?323fe 


1065 


T*0 




012 


?323T 


7428 


SNL 






?32ae 


5331 


JMP 




ENDNUH 


852ai 


7118 


CLU 


RAR 




Z32A2 


1373 


TAO 




O2e40A 


e32as 


3360 


OCA 




FDIGI7 


e32<s 


7010 


RAR 






Z32aS 


3361 


DC A 




F0IGI7*! 


03246 


4035 


FENTEH 




8324? 


65«5 


FMP! 




PTEN 


03258 


4318 


FAD* 


■FWO+FOICIT", 


?325t 


2000 


FEXIT 




03232 


1365 


TAO 




OPFLAS 


032S3 


7640 


SZA 


CLA 




03254 


2366 


ISZ 




DECFRAC 


03255 


5224 


JMP 




OIGIN 


03256 


1365 


ITSOP, TAD 




0PFLA6 


0325T 


7640 


»ZA 


CLA 




03260 


5331 


-MF 




ENONUM 


05261 


2365 


ISZ 




0PFLA6 


03262 


5224 


J MP 




DICIN 


03263 


5568 


ITSe, DCA 




FOIGIT 


eS26« 


1064 


TAO 




8NUMFLG 


03265 


7640 


SZA 


CLA 




83266 


5351 


J MP 




ENONUM 


83267 


2856 


ISZ 




EPTR 


83278 


4522 


JM8 


I 


PNONBLNK 


0S271 


1371 


TAD 




077256 


83272 


7458 


SNA 






832 7 S 


5588 


JMP 




IT8P 


83274 


I37i 


TAO 




07776 


03275 


7648 


SZA 


CLA 




83276 


5581 


JMP 




NOTSCN 


03277 


2568 


ISZ 




FOIGIT 


03300 


2056 


ITSPf ISZ 




EPTR 


03301 


4767 


NOTSCN, JM8 


I 


JISOIG 


83302 


5551 


JMP 




ENONUM 


83303 


2856 


ISZ 




EPTR 


03304 


5361 


OCA 




F0IGIT*1 


03305 


4767 


JMS 


I 


JISOIG 


03306 


5522 


JMP 




ONLTl 


83307 


7208 


CLA 






05310 


1561 


TAO 




FOIGIT+1 


03311 


7106 


CUU 


RTL 




03312 


1561 


TAO 




FDIGIT+l 


05513 


7184 


CLL 


RAL 




05314 


5561 


OCA 




FOIGIT+l 


05315 


4767 


JMS 


I 


JISOIG 


85516 


7675 


07675, 7673 


; 




85517 


1561 


TAO 




FOIGIT^l 


05520 


3361 


OCA 




F0IGIT*1 


03321 


2056 


ISZ 




EPTR 


03322 


1360 


ONLVl, TAO 




FOIGIT 



WR' 



C 7.1 



W*8IC 


.L9E 






PAL 


03323 


TUB 




cut »*R 




a352« 


iJfcl 




T*0 


FDICIT*! 


P3325 


7a2Z 




SNL 




^^3^b 


7?«l 




CIA 




e332T 


U66 




T*D 


OECFRAC 


e333e 


3366 




DCi 


OECFRAC 


03331 


7200 


EHONUM, 


CL* 




03332 


1366 




T»0 


DECFRAC 


03333 


7780 




9MA CL* 




0333* 


1364 




TAO 


OIVXTEN 


03335 


1363 




TAD 


MULXTEN 


03336 


3346 




OCA 


MULEXP 


03337 


1366 




TAO 


DECFRAC 


Z33«e 


7510 




SPA 




03301 


7041 




CIA 




033«2 


7040 




CMA 




03303 


3366 




OCA 


OECFRAC 


03304 


5350 




JMP 


.♦0 


03305 


0435 




FENTER 




03306 


7002 


MULCXP. 


HLT 




03307 


0000 




iXIT 




03350 


2366 




ISZ 


DECFRAC 


05351 


5345 




JMP 


.-« 


93352 


2064 




ISZ 


SNIIMFtl* 


03353 


5777 




JMP I 


PLITRAL 


0S3SO 


4506 




JM8 I 


PFIX 


03355 


7200 




CLA 




03356 


5757 




JMP I 


PCOMMON 


esss? 


3400 


PCOMMON 


,COMHON 




03360 


0000 


FDI6XT, 


ZI9t9 




03361 


0000 








03362 


0000 








03363 


6545 


MULXTEN 


,FMPI 


PTEN 


03364 


1000 


OIVXTEN 


,FOV»FMP 




03365 


0000 


OPFLAC, 







03366 


0000 


OECFRAC 


,0 




03367 


6532 


JI8DIG, 


X8DIG 




03370 


0027 


027, 


27 




03371 


7725 


07725B, 


7725 




03372 


7776 


07776, 


7776 




03373 


2040 


O2040A, 


2040 




03374 


7764 


077640, 


7764 




03375 


1742 


01742, 


1742 




03376 


1774 


01774, 


177« 




03377 


3131 


PLITRAL 


,LITRAL 





t 



E 7-2 



3000 



PAGE 



ifiStC 


.leE 


03000 


1005 


33401 


3060 


03ap2 


1306 


23423 


32t.l 


03404 


5231 


03405 


1460 


03406 


2060 


03407 


2060 


?3410 


7640 


03411 


6227 


03412 


1460 


03413 


2060 


03414 


7041 


03415 


1017 


03*16 


7640 


054J7 


5230 


03420 


1460 


03421 


7041 


03422 


1016 


03423 


7640 


03424 


5230 


0S42S 


7346 


03426 


5312 


03427 


2060 


03430 


2060 


03431 


2061 


03432 


5205 


03433 


4515 


034S4 


3064 


03435 


3464 


03436 


1064 


03437 


3013 


03440 


3413 


03441 


1017 


03442 


3413 


03443 


1016 


03444 


3413 


03405 


5314 


03446 


7001 


03447 


7106 


03450 


7006 


03451 


7006 


03452 


3031 


03453 


2056 


03454 


4922 


03455 


1273 


03456 


7100 


03457 


1065 


03460 


7620 


03461 


5266 


03462 


1456 


03463 


1031 


03464 


3031 


03465 


2056 


03466 


100S 



P«Le-V7 



>E 7-3 



COMMON, 



UUP. 



NOT, 



IN, 



LETTER, 



81MPUV, 



T*0 


P8VMTAB 




OCA 


CPTR 




TAD 


NSVMTAB 




DC* 


mPTR 




JMP 


IN 




TAD I 


CPTR 




ISZ 


CPTR 




ISZ 


GPTR 




SZA CLA 


/IS IT 


A LINENO 


J MP 


NOT /NO 




TAD I 


GPTR 




ISZ 


GPTR 




CIA 






TAD 


AC2 




SZA CLA 






JMP 


NOT*l 




TAD I 


GPTR 




CIA 






TAD 


AC3 




SZA CLA 






Tip 


N0T*1 




CLA CLL 


CMA RTL 




JMP 


I80EP2 




ISZ 


GPTR 




ISZ 


GPTR 




ISZ 


HPTR 




JMP 


LUP 




JMS I 


PGETBLK 




OCA 


SNUMPL6 




OCA I 


SNUMPL6 




TAD 


SNUMFL6 




OCA 


iNoexi 




DCA I 


iNoexi 




TAD 


Aca 




DCA I 


INOEXI 




TAD 


AC3 




OCA I 


INOEXI 




JMP 


ITSOEP 




I AC 






CLL RTL 






RTL 






RTL 






OCA 


TMP 




ISZ 


EPTR 




JMS I 


PN0N8LNK 




TAO 


O7706C 




CLL 






TAD 


012 




SNL CLA 






JMP 


SIMPLV 




TAO I 


EPTR 




TAO 


TMP 




DCA 


TMP 




ISZ 


EPTR 




TAO 


P8VMTAB 





ISIC.LSE 



>*La-V7 



re 7-tt 



esabT 


iZtZ 




OCA 


6PTB 


PJ«TB 


leefc 




TAO 


MSYMTAS 


ZjaTl 


3261 




OCA 


MPTR 


8J472 


3S24 




JMP 


V8CH1N 


a3«rj 


7726 


O7706C, 


7706 




B3i*Ta 


7000 


070008, 


7000 




esttTS 


1460 


VSCHLUP 


,TAD I 


CPT» 


03476 


1274 




TAO 


070008 


03*77 


7640 




SZA CLA 




ejbii0 


5320 




JMP 


VSCHNOT 


03Set 


2060 




I8Z 


GPTR 


03502 


1460 




TAO I 


CPTB 


03S03 


3064 




OCA 


SNUMFL6 


03504 


1464 




TAO I 


8NUMFLG 


03505 


7041 




CIA 




0S50b 


1031 




TAO 


TMP 


0SS07 


7640 




SZA CLA 




03510 


5321 




JMP 


VSCHN0T*1 


03511 


7240 




CLA CMA 




03512 


1060 


xaDeF2, 


TAO 


GPTR 


03513 


3064 




^CA 


SNUMFL6 


0351 a 


1064 


IT8DEF, 


rAO 


8NUMFLG 


03515 


3457 




OCA X 


FPTR 


0351* 


2057 




I8Z 


FPTR 


03517 


5516 




JMP I 


PSLOOP 


0S520 


2060 


V8CHN0T 


,ISZ 


GPTR 


03521 


2060 




I8Z 


GPTR 


03522 


2060 




I8Z 


GPTR 


03523 


2060 




laz 


GPTR 


03S2« 


2061 


V8CHXN, 


X8Z 


HPTR 


03525 


5275 




JHP 


V8CHLUP 


05526 


4515 




JMS I 


P6ETBLK 


03527 


3064 




OCA 


8NUMFL6 


03530 


7240 




CLA CMA 




03531 


1064 




TAO 


SNUMFLG 


03532 


3013 




OCA 


INOEXl 


03533 


1350 




TAO 


01000 


03534 


3413 




OCA X 


XNDEXl 


03535 


1003 




TAO 


ARRLOC 


03536 


3413 




OCA X 


XNOEXl 


03537 


3413 




OCA I 


INOEXl 


03500 


3413 




OCA X 


INOEXl 


03541 


4563 




JM8 X 


PCHKFIT 


03542 


1031 




TAO 


TMP 


03543 


4521 




JM8 X 


P8TXCKXT 


03544 


4821 




JMS I 


P8TICKIT 


03545 


4521 




JMS I 


P8TXCKXT 


03546 


4521 




JMS X 


PSTXCKXT 


03547 


5314 




JMP 


IT80EF 


03550 


1000 


01000* 


1000 




03551 


0000 


POF, 







03552 


7240 




CLA CMA 


1 


03553 


1036 




TAD 


POL 


03554 


3036 




OCA 


POL 


03555 


1436 




TAO X 


POL 



Visic 


.L6E 






03556 


5751 




JM^ I ^OP 


P355r 


3737 


FOURLF, 


TEXT »^^^^» 


035<ie 


5737 






a35«.i 


eaze 






essbs 


3724 


USMl, 


TEXT »_^T00 1 


93563 


1717 






03564 


4002 






03565 


1107 






03566 


5640 






tijbb? 


1411 






03570 


1605 






03571 


4011 






03572 


0716 






03573 


1722 






0357a 


0504 






03575 


3700 







PAC6-V7 



*T00 BIG, LINE IGNORED^' 



t 



GE 7-S 



3600 



PACE 



03600 
03601 
03602 

03603 

03604 

0360S 

03606 

03607 

03610 

03611 

03612 

03613 

03614 

03615 

03616 

03617 

03620 

03621 

03622 

03623 

03624 

03625 

03626 

03627 

03630 

03631 

03632 



1706 
3050 
4566 
3476 
5210 
72A0 
4541 
4177 
4566 



i.I8T« 



5216 
2050 

1450 
74S0 
1004 
3045 
4177 
4566 
1755 
5230 
4541 
4302 
3557 
5520 
4566 



TAD X PXIINBUF 
DCA WORD 
I8IT 
3476 

JMP .♦a 

CLA CMA 
JHS I PCOWT 
JMS 6ETW0 
ItXT 



JMf» 

in 

TAD 

SNA 

II8TALL#TAD 

tlSTSOMiDCA 

LXSTLUPf JM8 

I8IT 



X 



INOENOi 



5240 



179S 

JMP 

jn$ I 

JM8 

POURLF 

JMP I 

I8IT 

0000 

JMP 



LNOENO 

PCOWT 

PBINTXT 

PEDIT 



/L.XNENO 



/CHECK FOR A <•*•• 

/NOPE, 

/YEP, 8ET UP PUTXRA BY BXVINB A PHOONEY 

/CALL TO THE WAXT ROUTINE, 

/AND SET ANOTHER MORD NOW. 



LX8TALL 
MORD 

MORO 

CODELOC 

LOCCTR 

6ETW0 



/(EOF) 



/NOT DUNE 
/WAIT FOR 



YET 

I/O TO FXNI8H AND CLEAN UP, 



/A LINENO 



LIST2 /NO 



W'lc 


• use 






P»L6»V7 mil 


33633 


i?5e 




TAO 


riORD 




?363« 


SS2S 




J MS I 


PPRIMUM 




?3635 


l?5J 




T»0 


0240 




?3636 


«i*33 




JMS I 


PPUTCH 




e3«)37 


5220 




JMP 


tISTLUP 




23600 


a5b6 


tI9T2, 


ISIT 




/A VARIABLE 


03(>ttt 


7000 




7000 






03602 


5255 




JMP 


LI8T3 




?36<i3 


2050 




I8Z 


MORO 




SlbuH 


US0 




T*0 I 


WORD 




e36ttS 


3050 




DCA 


iiORD 




03606 


M50 




TAD 1 


WORD 




B36ttr 


3253 




OCA 


PRINVAR 




03650 


1302 




JMS 


PRINTKT 




03651 


3653 




PR INVAR 






03652 


5220 




JMP 


LISTLUP 




!»1^53 


0009 


PRINVAR 


,z 






03650 


0000 











03655 


4575 


1.18T3, 


JMS I 


pisiTun 


■ /ISIT A LITERAL 


03656 


5261 




JMP 


UIST4 


/NO 


0365T 


4517 




v'MS I 


POUTNUM 


/PRINT IT 


03660 


5220 




,.MP 


LI8TUUP 




03661 


4566 


l,IST4, 


ISIT 




/(TEXT) 


09662 


5000 




3000 






03663 


527* 




JMP 


LISTS 




03664 


4177 


L4LUP, 


JMS 


SETHD 




03665 


1050 




TAD 


WORD 




03666 


32SS 




DCA 


PRINVAR 




03667 


4302 




JMS 


PRINTXT 




03670 


3653 




PRINVAR 






03671 


1050 




TAO 


WORD 




03672 


0070 




AND 


077 




03673 


7640 




8ZA CLA 






0567a 


5264 




JMP 


L4LUP 




03675 


5220 




JMP 


LISTLUP 




03676 


1050 


LISTS, 


TAO 


WORD 


/ITS A SYSTEM SVMBOL 


03677 


7001 




lAC 






03700 


4902 




JMS 


PRINTXT 





7<>6 



/^5IC, 


.l8E 






Pit 


33T21 


522J 




JMP 


LISTLUP 


?3»P2 


2?e8 


Pdl^ftXT, 


p8 




?JTe3 


TAoa 




SZ* 




?3^?« 


53jiJ 




JMP 


JBPEKT^l 


?37e5 


b2ei 




COF 





?jTefc 


1702 




TAD 1 


PRIKTXT 


a37«T 


2382 


JBPENTr 


ISZ 


PRINTXT 


?3T18 


3842 




OCA 


PR TEMP 


e3Tii 


14«2 


P»»».OOP# 


TAO I 


PRTEHP 


esMi 


7812 




RTR 




83713 


7812 




RTR 




a5Ti« 


7012 




RTR 




23T15 


4324 




JM8 


PRSUBR 


a37ll» 


14a 2 




TAO I 


PRTEMP 


B3Tir 


4324 




JN8 


PRSUBR 


23722 


2842 




ISZ 


PRTEMP 


83721 


5311 




JHK 


PRUOOP 


03722 


6211 


PHTXRET 


,CDF 


10 


?3723 


5782 




JMP I 


PRINTXT 


B372« 


8888 


PRSUBR, 







83725 


8878 




4 ;0 


077 


33726 


7458 




SNA 




85727 


5322 




JMP 


PRTXRCT 


03738 


1345 




TAO 


07T41 


83731 


7458 




SNA 




83TS2 


5348 




JMP 


CRLFPR 


83733 


1870 




TAO 


077 


83734 


8070 




AND 


077 


83735 


1851 




TAO 


0240 


83736 


4431 




JM8 J 


PPUTCH 


83737 


5724 




JMP I 


PRSUBR 


B37AB 


1807 


CRLFPH, 


TAO 


0219 


83781 


4433 




JM8 I 


PPUTCM 


83742 


1810 




TAO 


0212 


83743 


4433 




JM8 I 


PPUTCH 


83744 


5724 




JMP I 


PRSUBR 


8374S 


7741 


07741, 


7741 




83746 


7513 


PXLlNBli 


I,LINBUF*1 


837«7 


8800 


PRINUM, 







83758 


7001 




lAC 




837S1 


3813 




OCA 


INDEXl 


837S2 


4362 




JM8 


BE6FXX 


83753 


1413 




TAO I 


INDEXl 


83754 


301T 




OCA 


AC2 


83755 


1413 




TAD X 


INDEXl 


83756 


3816 




OCA 


AC3 


83757 


4946 


„.. 


JMS I 


PANORM 


83768 


4517 




JM8 I 


POUTNUM 


83761 


57«7 




JMP I 


PRINUM 






K INSERT, 
K INSERT, 



ffttf*** s K INSERT, 



/SET UP FAC TO RECEIVE INTEGER DATA, 



83762 8888 BECFIXi 
?ST63 3017 OCA 



AC2 



/SETS UP FOR INTEGER TO AC MODE. 
/CLl*" THEM AUUi EXCEPT FOR LOW WORD. 



^iKsrCLSE 




P4L8-V7 


Z3Tfett 3023 


DC* 


ACl 


aSTbS 3012 


OC* 


ov 


33766 3224 


OCA 


ACS 


?376T IJ72 


T»0 


0233 


33770 3025 


OCA 


ACE 


03771 5762 


JMP I 


BEGFIX 



,1 a-1 



03772 0233 0233, 233 



03773 


4571 


RESTORE, GET+HUSTBE 


03774 


2030 


2000 


03775 


1004 


TAO COOEUOC 


03776 


3046 


OCA REAQLOC 


03777 


5503 


JMP I PEXfCUTE 



/CCR) OR *\* 



4000 



PACE 



04000 4566 MOREIN, ISZT 

04001 2000 2000 

04002 5234 JMP INPLUP 

04003 1010 TAD 0212 

04004 4433 JHS X PPUTCH 

04005 1130 TAO 0UT02 

04006 3131 OCA OUTOEV 

04007 7240 INPUT, CLA CMA 

04010 1187 TAD INOEV 

04011 7640 8ZA CUA 

04012 5224 JM? IPNOPE 

04013 1131 TAD OUTOEV 

04014 4504 JHS I PPU8H 
04019 7201 CI.A lAC 

04016 3131 OCA OUTOEV 

04017 4541 JHS I PCOWT 



/(CR3 OR 'V 



/GET THE QWD OUTPUT DEVICE. 
/AND RESET IT, 

/CHECK THE INPUT DEVICE NOW, 
/ARE WE INPUT PROM THE TELETYPE, 

/NOPE. 

/GET THE OUTPUT DEVICE, 

/SAVE IT POR A SECOND. 

/SET OUTPUT DEVICE TO TTY FOR "T" 

/WAIT F0« OUTPUT TO FINISH, THEN CONTINUE. 



/8iTlIC,L»C 



P*L«-V7 



PACT S«2 



?a02e 


1070 




TAO 




077 


24021 


4«t3S 




JH» 


I 


PPgTCH 


?«222 


4505 




JMS 


I 


PROP 


2«?23 


3131 




DCA 




OUTOEV 


eae2a 


U«5 


IPNOPC, 


TAO 




LOCCTR 


34925 


3565 




DCA 


I 


CSBPTP 


04026 


1076 




TAO 




PTEXT 


8S82T 


4524 




JM8 


I 


PfitTLIN 


04030 


1565 




TAO 


I 


GSBPTP 


04031 


3045 




OCA 




LOCCTR 


04032 


1037 




TAD 




PLINBUP 


04033 


3263 




DCA 




INPPTP 


04034 


4513 


INPLUPf 


JMS 


I 


PCETVAR 


04035 


1050 




TAO 




Mono 


04036 


3264 




OCA 




INWOTMP 


0403T 


1045 




TAO 




LOCCTR 


04040 


3265 




DCA 




INLCTMP 


04041 


1263 




TAO 




INPPTP 


04042 


3045 




OCA 




LOCCTR 


00043 


4501 




JMS 


I 


PEVAL 


04044 


1045 




T^: 




LOCCTR 


04045 


3263 




OLA 




INPPTR 


BaSAfr 


1265 




TAO 




INLCTMP 


04047 


3045 




OCA 




LOCCTR 


84050 


4512 




JHS 


X 


P8T0VAR 


840St 


7332 




CkA 


CLU 


CML PTR 


04052 


1664 




TAD 


1 


INWOTMP 


8«fSS 


7648 




SZA 


CLA 




84BS4 


5208 




JMP 




MOREIN 


04855 


1818 




TAO 




0212 


84856 


44SS 




JMS 


X 


PPUTCH 


84857 


1158 




TAO 




0UT02 


04868 


3131 




DCA 




OUTOEV 


84861 


3126 




DCA 




COLUMN 


04062 


5583 




JMP 


I 


PEXECUTE 


04063 


0080 


INPPTR, 









84064 


0888 


INWOTMP 


,9 






04065 


0808 


INLCTMP 


10 






04866 


8808 


XOISIT, 









04867 


4177 




JM8 




OETWD 


04878 


1266 




TAD 




X6I8IT 


04871 


3273 




OCA 




XXIIT 


04872 


5274 




JMF 




XXSIT^l 


04073 


0008 


XISIT, 









84074 


1458 




TAD 


I 


WORD 


04075 


6201 




COP 







84076 


1673 




TAO 


1 


XXIIT 


04077 


6211 




CDF 




18 


04108 


2273 




isz 




XI8XT 


04101 


7650 




SNA 


CLA 




04102 


2273 




ISZ 




XISIT 


94103 


5673 




JMP 


I 


XISIT 


04104 


0088 


ISITCIT 


>e 






04105 


1458 




TAO 


I 


WORD 


04106 


7146 




CLU 


CMA 


RTL 



/RESET OUTPUT DEVICE NOW, 



/RESET THE OEV. BABV 



f*t»tt*ti*tttt % K INSERT, 
,ftt*ttft**t*t g K INSERT. 



iic.uee 



P*L»-VT 



S-3 



eaiBT 


7032 


CML RTR 




24110 


3024 


OCA 


ACS 


euili 


1024 


T*0 


ACS 


04112 


iibe 


T»0 


04 


84113 


7620 


SNL CLA 




04114 


5704 


Jf*P I 


I8ITLXT 


eatis 


2304 


ISZ 


18ITLIT 


04116 


3020 


OCA 


ACl 


04117 


3017 


OCA 


AC2 


04120 


3016 


OCA 


ACS 


04121 


4333 


JMS 


ISLXT 


04122 


3016 


OCA 


ACS 


04123 


4333 


JM0 


ISLXT 


04124 


3017 


OCA 


AC2 


0412S 


4333 


JttS 


X8LXT 


04126 


3020 


OCA 


ACl 


04127 


4435 


LOADED, FENTER 




04130 


3016 


FLO 


ACS 


04131 


0000 


FEXIT 




04132 


S704 


JHP I 


I8ITLIT 


04133 


0000 


X8LXT, 




04134 


2024 


ZJZ 


ACS 


04135 


7410 


8KP 




04136 


5327 


JM|» 


LOADED 


B4137 


4177 


JM9 


GETMD 


04140 


1050 


TAO 


WORD 


04141 


5733 


JMP I 


XSLXT 


04142 


0000 


ERROR* 




04143 


4537 


JH8 X 


PRESET 


04144 


4514 


JH8 X 


PPRINTXT 


04145 


6531 


CRUF 




04146 


134S 


TAO 


ERROR 


04147 


3391 


DC* 


.♦2 


04150 


4914 


JMS X 


PMXNTXT 


04151 


7402 


MLT 




04152 


4514 


JM8 X 


PPRINTXT 


04193 


4170 


QERROR 




04154 


1451 


TAO X 


LINENO 


04155 


7710 


8PA CLA 




04156 


5363 


JM)» 


.♦5 


04157 


4914 


JH8 X 


PPRXNTXT 


04160 


6451 


ATLXNE 




04161 


1052 


TAO 


LXNENO 


04162 


4529 


JMS I 


PPRINUM 


04163 


4514 


JMB X 


PPRINTXT 


04164 


6531 


CRLF 




04169 


1129 


TAO 


PP0LI8T 


04166 


3036 


OCA 


POL 


04167 


5520 


JWP I 


PEOXT 


04170 


4005 


QERROR» TEXT * 


ERROR' 


04171 


2222 






04172 


1722 






04173 


0000 







/RESET ALL X/O DEVXCES. 



iic.lse 



^ALa*vy 



S-4 



a2ee 



PAGE 









/ 




JM8 


FPT 


/ENTER FLOATING POINT PACK 








/ 




eeee 




/FCXIT 








/ 




0040 




/FSNE 








/ 




0050 




/FSEO 








/ 




0100 




/F86E 








/ 




0110 




/F8LT 








/ 




0140 




/FS6T 








/ 




0150 




/FSLf 








/ 






If BIT 


4 OFF THEN SAME AS PDP-F 








/ 






IF BIT 


4 ON THEN IF BIT 3 OFF VMEN RELATIVE PLUS 








/ 








IF BIT 3 ON THEN RELATIVE MINUS 








/ 




IXXX 




/FJMP 








/ 




z%%x 




/FST 








/ 




3XXX 




/FLO 








/ 




4XXX 




/FAD 








/ 




5XXX 




/FSB 








/ 




6XXX 




/FMP 








/ 




7XXX 




/FDV 


042efl 


0000 


rpi, 













04201 


5204 




JMP 




.♦3 






04202 


4546 


FPLOOP, 


JM» 


X 


PANORN 






04203 


2200 




til 




FPT 






04204 


6201 




CDF 









/fMMfff s K INSERT, 


0420S 


1600 




TAD 


I 


PPT 






04206 


7006 




RTL 










04207 


7006 




RTU 










04210 


0072 




AND 




07 






04211 


7450 




SNA 










04212 


S30S 




JMP 




FPOPER 






0421S 


3273 




OCA 




FP60T0 






04214 


1600 




TAD 


I 


FPT 






04215 


0155 




AND 




0200 






0421ft 


7650 




SNA 


CLA 








0421T 


5227 




JMP 




FPP8Z 






04220 


1600 




TAD 


Z 


FPT 






04221 


0027 




AND 




0177 






04222 


7430 




8Zk 










04223 


7041 




CIA 










04224 


1200 




TAD 




FPT 






0422S 


3304 




DCA 




FPADOR 






04226 


5237 




JMP 




FPOOIT 






04227 


1600 


FP^Sl, 


TAD 


I 


FPT 






04230 


0027 




AND 




0177 






04231 


3304 




OCA 




FPADOR 






04232 


7420 




SNL 










04233 


5237 




JMP 




FPOOIT 






0423« 


1704 




TAD 


I 


FPADOR 







HC.L»C 



PALfl-VT 



8-5 



9a23S 


3304 




OCA 




FPAOOR 


aassfc 


6211 




COF 




10 


34257 


73tt6 


FPOOIT, 


CL» 


cut 


CM* BT(. 


2«2aa 


1273 




T*0 




FPGOTO 


84241 


TT10 




8P* 


CUA 




04242 


5270 




JMP 




FPKiOAOP 


84243 


7338 




CLA 


CLL 


CML RAP 


04244 


0784 




AND 


I 


FPAOOR 


04245 


3826 




OCA 




OPS 


eu2ab 


1704 




TAO 


I 


FPAOOR 


04247 


7648 




SZA 


CiA 




942S0 


7048 




CNA 






04251 


3156 




OCA 




FPFLAC 


04252 


1784 




TAO 


1 


FPAOOR 


04253 


7012 




«TR 






04254 


7018 




RAR 






04255 


0871 




AND 




0377 


04256 


3838 




OCA 




OPC 


04257 


1704 




TAD 


I 


FPAOOR 


04260 


0072 




AMD 




07 


04261 


3823 




<♦ 




OPl 


04262 


238« 




in 




FPAOOR 


84263 


1784 




TAO 


I 


FPAOOR 


04264 


3822 




OCA 




OPS 


e«26S 


2304 




ISZ 




FPAOOR 


8«266 


1784 




TAO 


Z 


FPAOOR 


84267 


3821 




OCA 




OPS 


84278 


1273 


FPNOAOR 


,TAO 




FP60T0 


04271 


127« 




TAO 




FPjyMP 


84272 


SITS 




OCA 




.♦I 


84273 


7482 


FP60T0* 


HLT 






8«27« 


S674 


FPJUHP, 


JMP 


I 


■ 


84275 


4317 




FPJMP 




84276 


4322 




FP8T0 




04277 


4351 




FPL*C 




84308 


4456 




FPAOO 




84381 


44SS 




FPsue 




84302 


4SS0 




FPMUL 




04303 


4667 




FPOIV 




84384 


8880 


FPADDR, 









04385 


1688 


FPOPEB, 


TAO 


I 


FPT 


84386 


6211 




COF 




18 


0«307 


7458 




SNA 






84318 


5688 




JMP 


X 


FPT 


0«3> 1 


1345 




TAO 




07600 


04312 


3314 




OCA 




FP8K1P 


04313 


4333 




JM8 




HI6HM0 


84314 


7482 


FP8KXP, 


HLT 






84315 


2200 




ISZ 




FPT 


84316 


5283 




JMP 




FPUOOP*! 


0«317 


1304 


FPJMP, 


TAD 




FPAOOR 


84328 


3208 




OCA 




FPT 


34321 


5204 




JMP 




FPLOOPti 


84322 


4333 


FP8T0. 


JMS 




HIGHWO 


04323 


3784 




OCA 


1 


FPAOOR 



/»»f""' 8 K INSERT, 



^tttftft'tf* S K INSERT, 



/flPfic 


.Lit 






PAL8-V7 


0S32a 


2304 


ISZ 




FPAOOR 


Pa325 


\9\y 


T40 




AC2 


mlih 


3T04 


OCA 


1 


FPADDR 


Stt327 


2324 


ISZ 




FPAODR 


?«53e 


101fc 


TAD 




AC3 


0*331 


3704 


OCA 


I 


FPAODR 


04332 


5203 


JMP 




FPLOOP^l 


04333 


0000 


HIGHmD, 






04334 


1025 


TAO 




ACE 


0433S 


ri04 


cut 


AAL 




0433fc 


7500 


8MA 







PAT 



S-6 



/BWfc 


,I.»C 




PAL6-V7 


eaJST 


7196 


CUL BTL. 




ZaluZ 


7539 


SP* S2L 




7a3«i 


5345 


JMp 


07609 


2tt3u2 


1924 


T*0 


ACS 


343«3 


1929 


TAO 


ACl 


843«« 


5733 


JMP 1 


MICHWO 


t«3«5 


7609 


07600, 7600 




Sa3«b 


1071 


TAO 


0377 


94347 


3925 


OCA 


ACE 


04350 


5334 


JMP 


HIGHW0*1 


e«351 


1026 


FPLAC, TAO 


OP 8 


94352 


3924 


OCA 


ACS 


?4553 


1939 


TAD 


OPE 


04354 


S02S 


OCA 


ACE 


94355 


1023 


TAO 


OPl 


94356 


3029 


OCA 


ACl 


9435T 


1022 


TAO 


0P2 


94369 


3917 


OCA 


AC2 


94361 


1921 


TAD 


0P3 


94362 


3916 


OCA 


AC3 


94363 


3012 


DC 


ov 


9*364 


5202 


JM/ 


FPUOOP 


94369 


7041 


UPA0R2, CIA 


/(CM 


94366 


3013 


OCA 


ZNOEXl 


e«S67 


443S 


FENTER 




94370 


3151 


PUO 


ONE 


9«JTl 


0000 


PEXIT 




04372 


5376 


JMP 


.♦4 


04373 


4435 


FENTER 




04374 


6071 


FMP 


OPERAND 


9437S 


oeee 


FEXIT 




04376 


2013 


I8Z 


INDEX I 


94377 


S375 


JMP 


.•4 


04400 


5601 


JMP I 


,*x 


04401 


1203 


OPOONE 





PAQ 



/(CMA) IP 1 0R6 INDEXING 



04492 


9000 


94493 


1020 


94404 


7110 


94405 


3020 


04406 


1017 


94407 


7010 


04410 


3017 


04411 


1816 


04412 


7010 


94413 


3016 


94414 


7010 


94415 


3012 


94416 


5602 


94417 


9099 


94420 


1234 



ARli 



ACN, 



TAO 


ACl 


CLL RAR 




OCA 


ACl 


TAD 


AC2 


RAR 




OCA 


AC2 


TAD 


ACS 


RAR 




OCA 


ACS 


RAR 




OCA 


OV 


JMP I 


ARl 







TAO 


POP 



/sWrC.LBE 



PAL6-V7 



PAl 



l-l 



34821 


3235 


OCA 


OAOO 


ja«?2 


7346 


CLA CLU 


CMA RTL 


?6423 


3202 


OCA 


ARl 


?tiU24 


7024 


CML RAL 




ett425 


1635 


TAO 1 


OAOO 


?4a2b 


7041 


CIA 




ei»427 


3635 


OCA I 


OAOO 


34430 


2235 


isz 


OAOO 


?443t 


2202 


ISZ 


ARl 


04432 


5224 


JMP 


.-6 


04433 


5617 


JMP I 


ACN 


04434 


0021 


P0P3, OPS 




84435 


0000 


0A00» 




04436 


7100 


CLL 




0443? 


1016 


TAO 


AC3 


04440 


1021 


TAO 


OPS 


04441 


3016 


OCA 


ACS 


04442 


7004 


RAL 




04443 


1017 


TAO 


AC2 


04444 


1022 


TAi) 


0P2 


04443 


3017 


Of. 


AC2 


04446 


7004 


Rkl 




04447 


1020 


TAD 


ACl 


044S0 


1033 


TAD 


OPl 


04451 


3020 


OCA 


ACl 


04452 


5615 


JMP I 


OAOO 


04453 


7330 


FP8UB, CIA CLL 


CML RAR 


04454 


1026 


TAD 


OPS 


04455 


3026 


OCA 


OPS 


04456 


2156 


FPADD, ISZ 


FPFLA6 


04457 


5326 


JMP 


EOPAO 


04460 


1025 


T*0 


AC£ 


84461 


7141 


CUL CIA 




04462 


1050 


TAD 


OPE 


04463 


7430 


SZL 




04464 


5302 


JMP 


BCKWOS 


84465 


32SS 


OCA 


OAOO 


04466 


10M 


AL8NI.I»i TAO 


OPl 


04467 


7110 


CUk RAR 




04470 


3023 


OCA 


OPl 


04471 


1022 


TAO 


0P2 


04472 


7010 


RAR 




B447S 


3022 


OCA 


OPS 


04474 


1021 


TAO 


DPS 


04475 


7010 


RAR 




04476 


3021 


OCA 


OPS 


04477 


2235 


ISZ 


OAOO 


04590 


5266 


JMP 


AL6NLP 


04501 


5312 


JMP 


SET86N 


04502 


7040 


BCKMOSi CMA 




04503 


3235 


OCA 


OAOO 


04504 


1030 


TAO 


OPE 


04505 


3025 


OCA 


ACE 


04506 


7410 


SNP 




04507 


4202 


JM9 


ARl 



/W:c. 


.in 








PALB-VT 




045 1« 


2235 




ISZ 




OAOO 




e«5it 


5387 




JMP 




.-i 




ii^\i 


1824 


8ETSSM, 


TAO 




ACS 




e65t3 


1?26 




T*0 




OPS 




9«S1« 


TTta 




ap* 


CLA 






•4515 


421 7 




JW8 




ACN 




MS1« 


4239 




JMt 




OAOO 




§45 J T 


1828 




T*D 




ACl 




e4528 


7700 




SMA 


CLA 






0*521 


5326 




JMP 




EOPAO 




B4S22 


734* 




CL* 


CLL 


CMA RTU 




94523 


4217 




JM8 




ACN 




04524 


182* 




TAO 




OPS 




04525 


3824 




DCA 




ACS 




*452t 


3812 


EOFABr 


W* 




0» 




0452T 


5775 




JKP 


I 


PPPUOOP 




04530 


215* 


FPMUL. 


ISZ 




PPPtAG 




04531 


5371 




JHP 




MULCLR 




04532 


1024 




TAD 




ACS 




04533 


102* 




TAO 




OPS 




00534 


i824 




Qf • 




*c« 




84535 


1825 




T.O 




ACE 




0453* 


1830 




TAO 




OPI 




04537 


1377 




TAO 




07977 




045«a 


3829 




OCA 




ACE 




04941 


1821 




TAO 




ACl 




04942 


382* 




OCA 




OPS 




§4943 


1817 




TAO 




AC2 




04544 


3838 




DCA 




OPE 




84949 


181* 




TAD 




ACS 




0454ft 


3031 




OCA 




TMP 




tistr 


3020 




DCA 




ACl 




04550 


11*2 




TAO 




07749 




04591 


337* 




DCA 




PPTEWP 




eaS92 


4202 


HPYLUPr 


JMS 




API 




84993 


102* 




TAD 




OPS 




•4994 


7810 




RAR 








84999 


382* 




DCA 




OPS 




84951) 


1830 




TAD 




OPE 




?as^7 


7810 




RAR 








845*8 


3830 




OCA 




0P6 




049ftl 


1831 




TAD 




TMP- 




ei<l«>2 


7010 




RAR 








»«S63 


3031 




DCA 




TMP 




8456* 


7430 




8ZU 








849*9 


4239 




JMS 




OADD 




849** 


237* 




ISZ 




PPTEMP 




849*7 


5392 




JMP 




MPtUUP 




849T8 


5779 




JMP 


I 


PPPLOOP 




8457J 


734* 


MULCL"* 


CIA 


CLL 


, CMA RTL 




84572 


3029 




OCA 




ACE 




84573 


3820 




OCA 




ACl 




84574 


5779 




JMP 


I 


PPPLOOP 




24575 


4202 


PFCLOOP 


'.FPLOOP 






8457* 


0000 


PPTEMP, 


8 









'»-2 



34577 7577 07577, 



7577 



^AL8-V7 



pW 



9-3 



ibZ9 



PAGE 



34600 


0000 


ANORM, 






2«6ai 


1020 


TAD 




ACl 


34602 


7450 


SNA 






04603 


5212 


JHP 




HAYZERO 


04604 


1055 


TAD 




0777B 


04605 


7710 


SPA 


CLA 




04606 


5220 


JMP 




NOTBIG 


04607 


4547 


jm 


I 


PARI 


04610 


2025 


If: 




ACE 


04611 


5201 


jf.p 




ANORMtl 


04612 


1817 


KAVZERO,TAO 




AC2 


04613 


7648 


SZA 


CLA 




04614 


5228 


JMP 




NOTBIG 


84615 


1816 


TAD 




ACS 


04616 


7650 


SNA 


CLA 




04617 


5245 


JMP 




UNDERP 


0462e 


1012 


NOTBIG, TAD 




ov 


04621 


7658 


SNA 


CLA 




BA622 


5233 


JMP 




NOBUMP 


04623 


2816 


ISZ 




ACS 


04624 


5233 


JMP 




NOBUMP 


04625 


2817 


ISZ 




AC2 


04626 


5233 


JMP 




NOBUMP 


04627 


2828 


ISZ 




ACt 


04630 


3012 


OCA 




OV 


04631 


5281 


JMP 




ANORM^l 


04632 


7248 


CLA 


CMA 




04633 


1025 


NOBUWP, TAD 




ACE 


04634 


7510 


SPA 






04635 


5245 


JMP 




UNOERP 


04636 


3025 


OCA 




ACE 


04637 


7346 


CUA 


CLL 


CMA RTL 


04640 


1828 


TAO 




ACl 


04641 


7740 


8MA 


SZA 


CLA 


04642 


5600 


JMP 


I 


ANORM 


04643 


4254 


JM8 




ALl 


04644 


5232 


JMP 




NOflUMP»l 


04645 


7280 


UNOERF, CLA 






04646 


3024 


OCA 




ACS 


04647 


3025 


OCA 




ACE 


04650 


3020 


OCA 




ACl 



/IS HIGH MORD ZERO? 

/YEP, ENTIRE NUMBER MAY BE ZERO. 



/IS SECOND WORD ZEROT 

/NOPE. NORMAL NORMALIZE, 

/I S 2 ARE ZERO, IS THIRD WORDT 

/YEP. CLEAR AC, ALL ZERO, 



/Wk 



ICuBE 



PALS-V7 



4-a 



a«*5i 


J017 


DC* 


AC2 


ea»58 


3016 


OCA 


AC3 


ett653 


5620 


JMP I 


ANORn 


eab54 


^^^^ 


ALU 




ea655 


1016 


T*0 


AC3 


0a65ft 


7104 


CLL RiL 




04657 


3016 


OCA 


ACS 


04660 


1017 


TAD 


ACS 


04661 


7004 


R*L 




04662 


3017 


DC* 


AC2 


04663 


1020 


TAD 


ACl 


04664 


7004 


RAL 




04665 


3020 


OCA 


ACl 


04666 


5654 


JMP I 


ALl 


0466T 


6201 


PPOIV, CDF 





04670 


2156 


isz 


FPFLAC 


eafeTj 


5536 


JMP 


fPZOIV 


04672 


1024 


TAD 


ACS 


04673 


1026 


TAD 


OPS 


04674 


3024 


OCA 


ACS 


04675 


1030 


T ."' 


OPE 


04676 


7841 


CXA 




04677 


102S 


TAD 


ACE 


04700 


1027 


TAD 


0177 


04701 


seis 


OCA 


ACE 


04702 


3031 


DCA 


TMP 


04703 


1343 


TAD 


07743 


04704 


3200 


OCA 


ANORM 


04705 


7330 


DIVLP* CLA CLL 


CNL RAR 


04706 


0023 


AND 


OPl 


04T07 


1020 


TAD 


ACl 


04710 


7700 


8MA CLA 




04711 


4742 


J MS I 


PACN 


04712 


4557 


JH8 I 


POAOD 


04713 


1031 


TAD 


TMP 


04714 


7004 


RAL 




04719 


3031 


OCA 


TMP 


04716 


1030 


TAD 


OFE 


B4717 


7004 


RAL 




04720 


3030 


DCA 


OPE 


04721 


1026 


TAD 


OPS 


04722 


7004 


RAL 




04723 


3026 


DCA 


OPS 


04724 


4550 


JM8 I 


PALI 


04725 


2200 


X8Z 


ANORH 


04726 


5305 


JHP 


OXVLP 


04727 


1026 


TAO 


OPS 


04730 


3020 


DCA 


ACl 


04731 


1030 


TAD 


OPE 


04732 


3017 


DCA 


AC2 


04733 


1031 


TAO 


TMP 


04734 


3016 


DCA 


ACS 


04735 


5741 


JMP I 


PPFLOOP 


04736 


1071 


fPZOIV, TAO 


0377 


04737 


3025 


OCA 


ACE 



ft§§nmt»tttft*rn a K INSERT, 



/WSIC 


.t«E 








PAL6-V 


047(10 


5741 




JMP 


I 


PPPLOOP 


ZiJal 


4222 


ppfloop 


,FPLOOP 




cutai 


4417 


P*CN, 


ACN 






eara3 


T743 


07743, 


7743 






eaToa 


peee 


fit, 









eaTaS 


1220 




TAO 




ACl 


0«7ab 


7650 




SNA 


CLA 




00747 


5367 




JMP 




ZPIXEX 


84750 


1025 


ruiup, 


TAD 




ACE 


04751 


1377 




TAD 




07545 


04752 


7700 




SMA 


CUA 




04753 


5373 




JMP 




FIXEXIT 


04754 


4547 




JMS 


I 


PARI 


04755 


1024 




TAO 




ACS 


04756 


0012 




AND 




OV 


04757 


7640 




SZA 


CLA 




04760 


2016 




isz 




ACS 


04761 


5365 




JMP 




.♦4 


04762 


2017 




ISZ 




AC2 


04763 


5365 




JMP 




.♦2 


04764 


2029 




r\ 




ACl 


0476S 


2029 




XiZ 




ACE 


04766 


5350 




JMP 




PZXtUP 


04767 


3029 


intit, 


DCA 




ACE 


04770 


3020 




OCA 




ACl 


04771 


3017 




OCA 




ACS 


04772 


3016 




OCA 




ACS 


04773 


3012 


FIXEXIT 


fOCA 




OV 


04774 


1016 




TAD 




ACS 


B47TS 


7001 


S8FIX, 


lAC 




/(N 


04776 


5744 




JMP 


I 


FIX 


04777 


754S 


07545, 


7949 







»W; 



<*'S 



/(NOP) IF 1 0P6 INOCXXNO 



5000 



PAGE 



05000 


0000 


OUTNUM, 






05001 


6201 


COF 







05002 


1024 


TAO 




ACS 


05003 


7700 


SMA 


CLA 




05004 


5207 


JMP 




.♦3 


05005 


1351 


TAO 




025S 


05006 


4433 


JMS 


I 


PPUTCM 


05007 


1020 


TAO 




ACl 


05010 


7640 


SZA 


CLA 




05011 


5216 


JMP 




NONZERO 


05012 


1011 


TAD 




0260 


05013 


4433 


JMS 


I 


PPUTCH 



,0*tf*f**f» e K INSERT, 



^Vsic 


:.L«E 






P»Le-V7 ^m 9-6 


9S9i« 


fcaii 


COF 




18 ,*»,,,,,,,r J ^ 


85815 


5600 


JHP 


I 


OUTNUM 


eszib 


0706 


M0n26»0,JM« 


I 


nxup 


?5?1T 


1355 


T*0 




07771 


05220 


3042 


DCA 




PRTEMP 


05021 


1044 


TAO 




PNUMBUF 


05822 


3025 


OCA 




ACE 


05923 


5238 


JMP 




.♦9 


05024 


1028 


CVTIOOP.TAO 




ACl 


?5025 


0027 


ANO 




0177 


0502* 


3020 


DCA 




ACl 


0502T 


4768 


JM8 


I 


PMPY 


05030 


1028 


TAO 




ACl 


C5J31 


7006 


RTL 






05032 


7086 


RTL 






05033 


7886 


RTL 






0se3« 


8347 


ANO 




017 


05035 


1811 


TAO 




0268 


05036 


3425 


DCA 


I 


ACE 


05037 


2025 


ISZ 




ACE 


050A0 


2842 


112 




PBTCMP 


ast4i 


5224 


»NP 




CVTLOOP 


«50«2 


7326 


CI.A 


CLL 


CML RTL 


ese«3 


1843 


TAD 




oecexp 


I9fl«« 


74S0 


SNA 






tse«s 


538S 


JM|» 




FMTI /.0NNNNNNN 


e50«ft 


7510 


SPA 






850A7 


5253 


JHP 




PMT2 /N,NNNNNNE«NN 


esfS0 


1055 


TAO 




07770 


IS8S1 


7710 


SFA 


CLA 




15852 


5330 


JMP 




FMTS /OTHER THAN N.NNNNNNE^NN 


fStS3 


7200 


FHT2, CLA 




/N.NNNNNNE^NN 


05094 


1044 


TAO 




PNUMBUF 


C50SS 


3825 


OCA 




ACE 


05056 


1357 


TAO 




07772 


05057 


3042 


OCA 




PRTEMP 


85f6e 


1425 


TAD 


I 


ACE 


85061 


4433 


JM8 


I 


PPUTCH 


85862 


1356 


TAO 




0296A 


8S863 


4433 


JH8 


I 


PPUTCH 


05864 


2025 


ISZ 




ACE 


85065 


1425 


TAO 


I 


ACE 


85866 


4433 


JMS 


I 


PPUTCH 


05867 


2042 


ISZ 




PRTEMP 


85870 


9264 


JMP 




#•4 


85871 


1352 


TAD 




0309 


85872 


4433 


JM8 


I 


PPUTCH 


85873 


1843 


TAD 




OECEXP 


85874 


7718 


SPA 


CLA 




85875 


7326 


CLA 


CLL 


CML RTL 


85076 


1390 


TAD 




0893 


85877 


4433 


JM8 


Z 


PPUTCN 


85188 


3029 


OCA 




ACE 


85181 


1843 


TAD 




OECEXP 


85182 


7918 


SPA 







INSERT, 



05103 7041 
0Sie« 3043 

esies u«3 



CIA 
DCA 
T*0 



PAL«-VT 



»M^ 



9-7 



OECEXP 
OECEXP 



/^R 



ic.tse 



PAL«-V7 



PIVF 10 



09196 


1354 




T*0 


07766 




J5teT 


rsi? 




8P* 






^511? 


53t« 




JKP 


.♦« 




?5in 


S8«3 




DCA 


DECtXP 




esuz 


202S 




ISZ 


ACE 




35113 


5385 




JMP 


.-6 




f5U« 


7200 




CLA 






esiis 


1825 




TAD 


ACS 




esub 


18U 




TAO 


0260 




BSUT 


4433 




JM5 1 


PPUTCH 




esiae 


1043 




TAO 


oecExp 




esi2i 


1811 




TAO 


0260 




?5122 


aa33 




JM8 1 


PPUTCM 




85123 


6211 


FMTtNF, 


COF 


18 


f*,t,,,,,t, e K INSERT, 


05124 


5600 




JMP 1 


OUTMUM 




esi25 


4514 


FMT1» 


JM8 1 


PPRINTXT 




?5t2Ci 


7371 




DOTZCRO 






85127 


6201 




COF 


8 


ftttttfttf* 8 K INSERT, 


05130 


1355 


FMT3, 


TAD 


07771 




05131 


3042 




OCA 


PRTEMP 




05132 


1361 




T'j 


PNBF6 




05 133 


3025 


TRYAGIN 


,OJA 


ACE 




05134 


1429 




TAD I 


ACE 




05139 


1353 




TAO 


07920 




05136 


7640 




SZA CLA 






05137 


5344 




JMP 


ZERDONE 




05140 


2042 




ISZ 


PRTEMP 




05141 


7240 




CLA CMA 






05142 


1029 




TAO 


ACE 




0S143 


9SSS 




JMP 


TRYA6IN 




05144 


5T45 


ZCROONE 


,JMP I 


.♦1 


ff ****** 8 K INSERT. 


05145 


6949 




PZIRDONC 


f****t** 8 K INSERT, 


05146 


5200 


FIXUPf 


FIXITUP 






05147 


0017 


017, 


17 






051S0 


0253 


0253, 


293 






05151 


0255 


0295, 


295 






09152 


0309 


0309, 


309 






05153 


7920 


07520, 


7520 






05154 


7766 


07766, 


7766 






05159 


7771 


07771, 


7771 






05156 


0256 


0296A, 


256 






0515T 


7772 


07772, 


7772 






09160 


5321 


PMPY, 


MPY 






05161 


9343 


PN8P6, 


NUMBUF«6 




05162 


3714 


TOOLONG 


i,TEXT ^ 


LINE TOO LONG^' 




05163 


1116 










05164 


0540 










05165 


2417 










95166 


1740 










Z5167 


1417 










85170 


1607 










85171 


3700 











rsiCLiE 



PAUB-V? 



^m. 



ia-1 



5280 



PASE 



052ee 


0000 


FIXITUP 


.0 






05201 


1025 




TAO 




ACE 


05202 


1345 




TAO 




07610 


05203 


3025 




OCA 




ACE 


05204 


7410 




8KP 






05205 


1043 


occ, 


TAO 




OECCXP 


05206 


30«S 




DCA 




DECEXP 


05207 


1020 


NORHIT, 


TAO 




ACl 


05210 


7006 




RTL 






05211 


7630 




8ZL 


CLA 




05212 


5220 




JHP 




NORMED 


05213 


4550 




J>«. 


I 


PALI 


BS214 


7240 




CL* 


C»4A 




05215 


1025 




TAO 




ACE 


05216 


3025 




DCA 




ACE 


0521T 


5207 




JMP 




NORMIT 


05220 


1025 


NORflEO, 


TAO 




ACE 


05221 


7540 




SMA 


SZA 




05222 


5236 




JMP 




NOTX10 


05223 


7208 




CUA 






0522* 


454T 




JH8 


I 


PARI 


0S225 


4S47 




JM8 


I 


PARI 


05226 


4547 




JN8 


I 


PARI 


05227 


4547 




JM8 


I 


PARI 


852S0 


4S21 




JMS 




MPV 


05251 


1025 




TAO 




ACE 


05232 


1160 




TAO 




04 


0S233 


S02S 




OCA 




Ace 


052S« 


7240 




CLA 


CMA 




05235 


5205 




JMP 




occ 


05236 


1346 


NOTX10f 


TAO 




07773 


05237 


7510 




SPA 






052«0 


5265 




JMP 




EXPOK 


0S2ai 


7200 




CUA 






05242 


1054 


EXPOOOD 


,TAO 




07740 


05243 


3321 




OCA 




MPV 


05244 


7100 




CLL 






0S245 


1020 


OVLOOP, 


TAO 




ACl 


05246 


1347 




TAO 




05400 


05247 


7500 




SMA 






052SB 


3020 




OCA 




ACl 


05251 


7264 




CIA 


CML 


CMA RA 


05252 


3B2S 




OCA 




OPl 


05253 


4550 




JH8 


I 


PALI 


05254 


2023 




isz 




DPI 


05255 


2016 




isz 




AC3 



rsiC,L«fc 



PAUe-VT 



h 10-2 



?5256 


2381 


I9Z 


MPY 


25257 


5245 


JHP 


DVLOOP 


25260 


1020 


TAD 


ACl 


SS2bl 


2871 


AND 


0377 


eszbi 


3020 


OCA 


ACl 


05263 


7201 


CLA lAC 




05264 


5205 


JMP 


OCC 


05265 


3042 exPOK, 


OCA 


PRTEMP 


05266 


7«10 


5KP 




B526T 


4547 


JMS I 


PARI 


B52T0 


2042 


ISZ 


PRTEMP 


05271 


5267 


JMP 


.-2 


05272 


1020 


TAD 


ACl 


05273 


1347 


TAD 


05400 


05274 


7700 


8MA CLA 




05275 


5242 


JMP 


£XP6000 


05276 


7300 


CLA CLL 




05277 


1016 


TAO 


AC3 


05300 


1344 


TAD 


02062 


05301 


3016 


OCA 


ACS 


05302 


7430 


3-.;. 




05303 


2017 


in 


AC8 


05304 


7410 


9KP 




0SS05 


2020 


ISZ 


ACl 


eS306 


1020 


TAO 


ACl 


0530T 


is«r 


TAO 


09400 


053 }0 


7640 


8ZA CLA 




05311 


9600 


JMP I 


riXITUP 


05312 


1159 


TAO 


0200 


0S31S 


3010 


OCA 


ACl 


05314 


3017 


OCA 


AC2 


05319 


3016 


OCA 


ACS 


05316 


2043 


I8Z 


OECEXP 


05317 


7000 


NOP 




05320 


5600 


JMP 1 


FIXITUP 


05321 


0000 MPV, 







05322 


4950 


JM8 I 


PALI 


05323 


1020 


TAO 


ACl 


05324 


3023 


OCA 


OPl 


05325 


1017 


TAD 


ACS 


05326 


3022 


OCA 


0P2 


05327 


1016 


TAO 


ACS 


05330 


3081 


OCA 


OPS 


05331 


4550 


JMI I 


PALI 


05332 


4550 


JH8 I 


PALI 


05333 


4557 


JM8 I 


POAOD 


05334 


5721 


JMP I 


MPy 


05335 


0000 NUHBUP» 


0f0|0l0f0f0l0 


05336 


0000 






05337 


0000 






05340 


0000 






05341 


0000 






05342 


0000 






05343 


0000 






05344 


2062 02062, 


206t 
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0S3«5 7bt0 C7fctef 7610 

05306 777J 07773, 7775 

05347 s«ee O5tt00i s«0e 



P*L6-V7 



nroi 



E 10-3 



05350 


0000 


RNOJf^P, FEXIT 




05351 


4546 


jns I 


PANORM 


05352 


5753 


JMP I 


RNO 


05353 


0000 


urn, 




05354 


4439 


PENTER 




05355 


3227 


FLD*PWD*FHNOX-. 


05356 


0000 


FEXIT 




0535T 


1021 


TAD 


0F3 


05360 


7006 


RTL 




05361 


7006 


RTL 




05362 


7006 


R'!. 




0S363 


3020 


OJA 


ACl 


09164 


1020 


TAO 


ACl 


05365 


7010 


RAR 




0S366 


0094 


AND 


07740 


05367 


301T 


DCA 


AC2 


05370 


3016 


DC A 


ACS 


05371 


499T 


JHS X 


POADD 


05372 


4997 


JMS I 


POADO 


0S37S 


4997 


JM8 X 


POADD 


05374 


1030 


TAO 


ORE 


05375 


3089 


DCA 


ACE 


0S376 


1020 


TAO 


ACl 


053T7 


0072 


AND 


07 


05400 


3020 


DCA 


ACl 


05401 


4439 


FENTER 




05402 


2202 


F8T*FWD*FRN0X-, 


05403 


1633 


FJMF«BKWD«,-RNDJMP 


05404 


2004 


FRNOX, 2004>4173n231 


05405 


4173 






09406 


1231 







09407 


0000 


FSORX, 


010)0 


09410 


0000 






05411 


0000 






05412 


0000 


SORt 





05413 


4499 




FENTER 


05414 


2073 




F8T OPERAND 


05415 


0040 




F8NE 


05416 


1232 




FJMP*FW0»80EXIT., 



/IWic 


.w»E 




PALe-V7 


?541T 


8880 


PExrr 






25<*2B 


1024 


7»D 


ACS 




.'5421 


7710 


SPA CLA 






Z5i?l 


5447 


JMP I 


PARGERR 




554£^ 


1025 


TAD 


Ace 




esdStt 


1252 


TAO 


007600 




esais 


7100 


CLU 






85426 


7510 


SPA 






85427 


7020 


CML 






85438 


7010 


RAR 






85431 


1155 


TAO 


0200 




85432 


3025 


DCA 


ACE 




85433 


1055 


TAO 


07770 




35434 


3013 


OCA 


INDEXl 




85435 


4435 


SOLOOP, PENTER 






85436 


2627 


PST«BKMD4,>FS0R)I 




85437 


3073 


FIO 


OPERAND 




85440 


7631 


FOVtBKMO^«»PSQRX 




85441 


4632 


FAD«BKWD*.-P8aRX 


1 


85442 


0000 


FEXIT 






05443 


7240 


CI '. CMA 






05444 


1025 


T*0 


ACE 




eS44S 


3029 


DCA 


ACE 




05446 


2013 


ISZ 


XNOEXl 




8544T 


5235 


JMP 


SQLOOP 




0S4S0 


0000 


SOEXIT, FEXXT 






05491 


5612 


JMP X 


8QR 




05452 


7600 


0076001 7600 






05453 


0000 


FN, 






05454 


1049 


TAO 


LOCCTR 




05455 


4504 


JNi I 


PPUSH 




05456 


1050 


TAD 


WORD 




0545T 


4504 


JM8 I 


PPU8M 




05460 


6201 


COP 







05461 


1745 


TAO I 


PU8ERPN 




05462 


6211 


COF 


10 




05463 


7001 


ZAC 






05464 


3049 


DCA 


LOCCTR 




05465 


4967 


CET^ISIT 


/«DEF» 


05466 


1761 


1761 






05467 


5746 


JMP 1 


PFNERR 


/NO 


05470 


4177 


JM8 


GETWO 


/SKIP 'FN* 


05471 


4177 


JM8 


6ETMD 


/SKIP LETTER 


85472 


4177 


JH8 


GETWD 


/SKIP '(• 


85473 


4567 


OET+ISIT 


/A VARIABLE 


05474 


7000 


7B00 






85475 


S746 


JMP X 


PFNERR 


/NO 


85476 


2050 


IBZ 


WORD 




85477 


1450 


TAD I 


WORD 




85500 


3013 


OCA 


INDEX! 




85501 


1413 


TAO X 


INOEXl 




85502 


4904 


JM0 X 


PPUSH 




85503 


1413 


TAO I 


ZNOEXl 




85504 


4504 


JMS I 


PPUSH 




85505 


1413 


TAO I 


INOEXl 





10-4 



/»»"»»« 8 K INSERT 
fttt*»t9* K INSERT, 



HC,L«E 



p*La-vT 



IB-5 



e>5Sa6 


«50a 


Z55?7 


1013 


055ie 


4504 


85511 


Tla4 


05512 


1013 


05513 


3013 


055U 


4435 


05515 


2413 


055lb 


0000 


05517 


4177 


05520 


4177 


05521 


4501 


05522 


4505 


05523 


3050 


0552« 


4505 


05525 


3450 


05526 


7240 


05527 


1050 


05530 


3050 


05531 


4505 


05532 


3450 


05533 


7240 


eSS34 


1050 


05535 


3050 


05536 


4509 


05537 


3490 


0SSae 


4505 


05941 


3091 


05542 


4909 


05543 


3049 


05944 


9693 


05945 


1620 


05546 


0392 



JM8 I 
T40 
JMS 1 
CLA CLL 
TAO 
OCA 

PENTfR 
PSTl 
FEXIT 
JMS 
JMS 
JMS I 
JMS I 
OCA 
JMS I 
OCA I 
CLA CMA 
TAD 
OCA 
JMS I 
OCN I 
CIA CHA 
TAO 
OCA 
JMS I 
OCA I 
JH8 I 
OCA 
JMS I 
OCA 
JMp X 
PU8CRFN»U8ERPN 



PFNCRR, FNERR 



PPUSH 
INDEXl 

PPUSH 
CMA RAL 
INDEXl 
INOEXl 

INDEXl 

GETWD 

SETMD 

PEVAL 

PPOP 

WORD 

PPOP 

WORD 

MORO 
WORD 
PPOP 
WORD 

WORD 

WORD 

PPOP 

WORD 

PPOP 

WORD 

PPOP 

UOCCTR 

FN 



/SKIP ')' 
/SKIP •■' 



05547 0000 TABi 

05550 4506 

05551 6201 

05552 7201 

05553 3771 

05554 1024 

05559 7650 

05556 1016 

05557 0071 

05560 3770 

05561 4772 



e 

JM8 I PFIX 

CDF 
CLA lAC 

OCA I PTABFL6 

TAD ACS 
SNA CLA 

TAD AC3 

AND 0377 

OCA I PTABDE8 

JMS I TBEGFIX 



/FUNCTION "TAB* IN PRINT STATEMENT, 

/FIX THE FAC NOW, 

/SET DATA FIELD TO FIELD ZERO, 

/SET FLAG TO INDICATE WE*VE DONE THIS FUNCTION, 

/AND STORE AWAY, 

/GET SIGN OF FAC 

/WAS IT A POSITIVE NUMBER7 

/YER, RICK UP DESIRED POSITION. 

/MAXIMUM OF 256 COLUMNS, 

/SAVE AWAY FOR ACTUAL SPACER TO USE. 

/PREPARE TO RETURN PRESENT COLUMN NUMBER, 



IIC.L8C 



PtLfl-V7 



le-b 



05562 


7201 




CLA lAC 




B5563 


1186 




T*0 


COLUf'N 


055ba 


3016 




DC* 


ACS 


85505 


6211 




CPF 


10 


eSSbb 


asa6 




JM8 I 


PANORM 


055fcT 


57«7 




JMP 1 


TAB 


05570 


6367 


PTABOES 


fTABOeS 




05571 


2345 


PTABFUC 


fTABFLS 




05572 


3762 


TBEGFIX 


,BECFIX 





/INCREMENT TO ACCOUNT POR DIFPERENCE8, 
/AND STORE AMAT, 
/RESET DATA FIELD NOW. 
/NORMALIZE AC NOM. 
/AND RETURN NOM. 



/POINTER TO DESIRED LOCATION OF PRINT MEAD. 
/POINTER TO TAB IN PRINT FLAB, 
/POINTER TO MINI-FIX.SET-UP ROUTINE, 



05573 


7201 


RUBO, 


CLA lAC 




0557a 


3135 


NORUBO, 


OC^ 


RB8MCH 


05575 


5776 




Jf.P I 


.♦I 


05576 


717S 




DEVCOM 





/SET RUBOUT SWITCH, 

/AND CLEAN IT UP. 
/CLEAN-UP POINTER, 



5600 



PAGE 



05600 0000 TAN* 

05601 aass 

05602 2275 

09603 0000 

0S60A 4216 

05605 4A35 

05606 2274 

05607 3270 

05610 0000 

05611 4224 

05612 4435 





FENTER 

P8T*FWD*FTANTl«. 

FEXIT 

JMS COS 

FENTER 

F8T+FWD+FTANT2". 

FLD+FW0+FTANT1-, 

FEXIT 

JM8 SIN 

FENTER 



ilC.lSE 



P»L«-V7 



11 



05«>iS 


7267 


fOV*FWD*FTANT2-. 


35614 


2380 


FEXIT 


B5*15 


5he0 


JMP I T»N 


esbiii 


?zefl 


COS, 


05fclT 


4435 


FENTEB 


05620 


4312 


FA0*fW0*FSINC7-, 


05621 


0000 


FEXIT 


05622 


4224 


JMS SIN 


0S623 


5616 


JMP I COS 


05620 


0000 


SIN, 


05625 


4435 


FENTER 


05626 


7265 


FDV*FWD*F8INC1<». 


0562T 


2256 


F8T*FW0*F8INZ-, 


05630 


0900 


FEXIT 


05631 


3024 


OCA ACS 


05632 


4676 


JMS I PINT 


05633 


T330 


CUA CLL CMC RAR 


05634 


0305 


AND FSINZ 


05635 


3024 


OCA ACS 


05636 


4435 


FENTER 


05637 


5246 


FS^^FWD^FSINZ-. 


B56«0 


6279 


F^P♦FWD♦F8INM4-, 


05641 


2244 


F8IN10, F8T*FWD*F8INI«, 


05642 


0000 


FEXIT 


0S643 


3024 


OCA ACS 


05644 


4435 


FENTER 


0564S 


5151 


F80 ONE 


05646 


0140 


F8GT 


eSb47 


1210 


FJMl»*Fli(0*F8IN0K-, 


0S6Se 


S29S 


FLO^FMO^FSINZ-. 


0S691 


0000 


FEXIT 


03658 


4679 


JM0 I P86N 


056S3 


2029 


Z8Z ACE 


0S6S4 


4459 


FENTER 


05655 


5230 


F8B4>FMD«F8INZ«. 


05656 


1619 


FJMFtBKWD^.-FSINl 


056S7 


9226 


F8IN0K, FLD*FW0*F8INZ-. 


05668 


6229 


FMP*FW0*F8INZ*. 


05661 


2227 


FST*FW0*F8INZZ-, 


05662 


6234 


FMP*FWD«FSINCS>. 


05663 


4236 


FAD+FWD«F8INC4-. 


05664 


6224 


FMP«FWD«FSINZZ«i 


05665 


4237 


FAO*FW0»F8INC9-. 


05666 


6222 


FMF*FW0*F8INZZ-, 


05667 


4240 


FAD*FMD*FSINC6-. 


05670 


6220 


FMP*FW0*F8INZZ-, 


05671 


4241 


FA0*FWD*F8INC7-, 


05672 


6219 


PMP*FWD*F81NZ», 


05673 


0000 


FEXIT 


05674 


5624 


JMP I SIN 


05675 


0726 


P«8N, SfiN 


05676 


6434 


PlNTi INT 


05677 


0000 


FTANTli 01010 


05700 


0000 




05701 


0000 





lie. wee 



PAL6-VT 



ll-l 



zsre? 


2200 


FT4NT2, 


91ZIZ 


ssTe? 


zeee 






?5T3« 


ezee 






?57C5 


?22? 


rsiNz, 


e)ztz 


eSTBb 


eeee 






eSTBT 


2000 






esTie 


0000 


/S1N22, 


ZIZ1Z 


057n 


zzez 






esTu 


0000 






05T13 


2036 


FSINCI, 


20361220717325 


eSTia 


2207 






85715 


7325 






0571* 


1644 


rsiNCs, 


1644;7S5S>6722 


05717 


7553 






05720 


6722 






05721 


5714 


FSINC4, 


57l4)6223n«32 


05722 


6223 






05723 


1432 






05724 


1755 


f8INC5, 


1755;0632M276 


05725 


0632 






05726 


1276 






0S727 


6005 


FSINC6, 


6l.0SM2S6r7406 


esrse 


1256 






057S1 


7406 






05732 


2016 


r8INC7, 


2016I2207I732S 


0ST33 


2207 






0573« 


7325 






05735 


6034 


PSINM4, 


60341000010000 


05736 


0000 






05737 


0000 






05740 


443S 


UPARRX, 


CENTER 


05741 


2634 




P8T*BKN0«.«F8ZNZ 


05742 


0108 




P8BE 


05743 


1221 




|rjMP*FMD*EXPl.ONG-. 


05744 


0000 




FEXIT 


05745 


4676 




JM8 I PINT 


05746 


443S 




FENTER 


05747 


5642 




PSB^BKWD^.oFSZNZ 


05750 


0050 




P8EQ 


05751 


1213 




PJHP*PWD<»E)lPUONG«, 


05752 


3645 




PLD«BKMD«.>P8INZ 


05755 


5207 




P8B*FWD*PUPRC1-, 


05754 


0150 




P8LE 


05755 


1207 




PJMP*PW0*exPLON6«, 


05756 


3651 




PLD*BKM0«.*PSINZ 


05757 


0000 




PEXIT 


05760 


5761 




JMP X »♦! 


05761 


6457 




UPARPOW 


05762 


2077 


FUPRCl, 


2077»T7B0 


05763 


7700 






05764 


3073 


EXPL0N6 


,FUD OPEPAND 


05765 


0000 




PEXIT 


05766 


4775 




JM8 I PIOS 


05767 


4435 




PENTEP 


05770 


6663 




PMP+IKWOt.-PSiNZ 



;IC.L«E 



P»U«-vT 
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JI57TI 


eeee 




fEXlT 




85T72 


0776 




JM8 I 


PEXP 


eSTTJ 


5774 




JMP I 


.♦1 


25774 


1203 




OPOONE 




85775 


6114 


PL06, 


LOS 




e577fc 


6000 


PfXP, 


EXP 





6000 



PACE 



06200 


0000 


EXP, 


06001 


4435 


PENTCR 


06002 


7270 


FDV*FW0+PEXPC1-. 


06003 


2261 


FrT*FWD+FEXPU-, 


06004 


0000 


FiXiT 


0600S 


4660 


JM8 I PPINT 


06006 


7330 


CLA CUL CHL. RAR 


06007 


1024 


TAD ACS 


06010 


3024 


DCA ACS 


06011 


443S 


FENTIR 


06012 


2247 


FST«FWD*FEXPI», 


0601S 


4291 


FA04>FM0*FEXPU-. 


06014 


2893 


FS7*FW0*FEXPF-, 


0601S 


6292 


FMP*FWD*FEXPF«, 


06eu 


4257 


FAD4FMD«FCXPC8«, 


06017 


2243 


F8T*FWD*FEXPU", 


06020 


3841 


FL0+FWD+FEXP1-, 


06021 


0000 


FEXIT 


06022 


4906 


JMS I PFIX 


06023 


7000 


FXXPFX, NOP 


06024 


3861 


OCA FEXPI 


06025 


1084 


TAO ACS 


06026 


7164 


CMA CLL CML RAL 


06027 


1261 


TAD FIXPI 


06030 


7420 


SNL 


06031 


7041 


CIA 


06032 


7001 


lAC 


06033 


3261 


OCA FEXPI 


06034 


4439 


FENTER 


06035 


3243 


Fl.D*FWD*FEXPC3-. 


06036 


7226 


FOV*FWO*FEXPU*, 


06037 


4244 


FAD«PM0«FEXFC4«, 


06040 


5227 


F8B*FWD1-FEXPF-, 


06041 


2223 


F8T*FW0*FEXPU". 


06042 


3229 


FUD*FWD*FEXPF«. 


06043 


6224 


FMP*FWD*FEXPF-, 


06044 


6242 


FMP*FWD*FEXPC5-. 


06045 


4217 


FAD^FWD^FEXPU*. 



/(lAC IF 1 ORG IN0EXIN6) 



^isic 


• Lse 




^*t 


fhznb 


2216 




|fST*PWD*FIXPU». 


8fea«7 


3220 




FLD*fWO*PCXPP», 


06250 


7214 




F0V*FWO»FtXPU-, 


?fce5i 


0240 




F*D*FWD*FEXPC6-, 


eftesz 


2215 




F8T*FW0*FeXPF«, 


06053 


0000 




FEXIT 


06esa 


1025 




TAD ACE 


0b0SS 


1261 




TAD FEXPl 


0605* 


3025 




DCA ACE 


0605T 


5600 




JMP I EXP 


06068 


6434 


PPINT, 


INT 


06061 


0000 


FEXPI, 


01010 


06062 


0000 






06063 


0000 






06064 


0000 . 


FEXPU» 


0l0f0 


06065 


0000 






06066 


0000 






06067 


0000 


nxPF, 


0>0r0 


06070 


0000 






06071 


0000 






06072 


2005 


FEXPCl, 


?r^5|427U0300 


06073 


4271 






06074 


0300 






06075 


207S 


FEXPC2, 


2e7S;35S2>7e22 


06076 


3552 






06077 


7022 






06100 


6124 


PEXPC3| 


61241647710715 


06101 


6477 






06102 


0715 






06103 


20*4 


rEXf>C4, 


2044^764310062 


06104 


7643 






06105 


0062 






06106 


1744 


FEXPC5, 


l744fS372»3400 


06107 


3378 






06110 


3400 






06111 


2004 


FEXPC6, 


2004|0000>0000 


06112 


0000 






06113 


0000 






06114 


0000 


LOG, 





06115 


1024 




TAD ACS 


06116 


7710 




SPA CLA 


06117 


5447 




JMP I PARGERR 


06120 


1025 




TAD ACE 


06121 


3365 




OCA U06ACE 


06122 


1155 




TAD 0200 


06123 


3025 




OCA ACE 


06124 


4439 




FENTER 


06125 


2641 




FST*BKWD*.-FEXPU 


06126 


4244 




FAD*FWD«FL0GC1-, 


06127 


2640 




F8T*BKW0*,-FEXPF 


06130 


3644 




F10*BKWD«.-FEXPU 


06131 


5241 




FSB^FWO^FLOOCl-. 


06132 


7643 




FOV*BKWO*,-FEXPF 


06133 


2644 




FST^BKWD^.-FEXPP 


86134 


6645 




FMP*BKWD*,»FEXPF 



re n-3 



ilC.LBE 



»»*i.8-vr 
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86135 


6216 




FMp*FwO*PLOGC2", 


?bl36 


4220 




FAD*FwO*FLOr.C3-, 


?frl37 


6650 




FMP*bKwO*,-Ft)rPr 


?6lae 


6651 




FMP*BKwO».-FE)fPF 


ebui 


4220 




FA0*FW0*FL0GC4», 


«6la2 


6653 




FMP*BKhD*,-FEXPF 


ekt«s 


5632 




FSB«BKmO*.-FEXPC6 


efct44 


2655 




F8T*BKwO*,-FEXPF 


ebias 


3217 




FLD^FWO^LOGFKO*. 


ebtab 


5221 




F8B*FW0*L0GORW-, 


Jtiie? 


4660 




FAO*eKtiiD*.-FEXPF 


96150 


6656 




FMP*BKW0*,-FEXPCI 


06151 


0000 




FEXIT 


eblS2 


57i« 




JMP I LOG 


06153 


2004 


FL06C2, 


2004>6253)2521 


06154 


6253 






06155 


2521 






06156 


2007 


FL0GC3, 


2007;5421>3604 


86157 


5021 






06160 


3604 






06161 


2025 


fU0GC4, 


2M5r6125ll007 


86162 


6125 






86163 


1087 






86t6« 


2174 


LOGfMD, 


2174 


8616S 


0000 


LOSACE, 





86X66 


0000 







86167 


2174 


LOGOKW, 


2174;0200P0 


06170 


0208 






86171 


0000 






86172 


2809 


rtOGCl, 


2005>9202r3632 


86173 


5202 






86174 


3632 







6200 



PAGE 



06200 0000 ATNr 

06281 1024 TAD ACS 

86282 3272 OCA FATN8X 

06203 3024 DCA ACS 

06204 443S FENTEP 

06205 2271 FST*FWO*FATNT». 
86206 2269 FST«FWD«FATNAX-, 
26287 5275 FSB*FWD*FATNC»«, 

06210 0140 FSGT 

06211 1254 FJMP»FWD*ATNBIB«, 



rsic.Lse 



p»ue-vr 



U-8 



Zbili 


5273 


dhsa 


0ia0 


?b2i4 


1204 


?t»2l5 


3151 


06216 


7260 


e*2lT 


2257 


06220 


3152 


06221 


2316 


06222 


3254 


Rfe223 


5267 


0622a 


0100 


06225 


1212 


06226 


3250 


06227 


4266 


06230 


2246 


06231 


3314 


06232 


7244 


06233 


4262 


06234 


2242 


0623S 


3263 


06236 


2301 


06237 


3237 


86240 


6236 


06241 


2240 


06242 


3261 


06243 


6236 


06244 


4262 


06245 


6234 


06246 


4263 


06247 


6232 


062S0 


4264 


062S1 


6230 


06252 


41S1 


06253 


6223 


06254 


4263 


06255 


2221 


06256 


3215 


06257 


5151 


06260 


0140 


06261 


1204 


06262 


3260 


06263 


5213 


06264 


2212 


06265 


3211 


06266 


0000 


06267 


1272 


06270 


3024 


06271 


5600 


06272 


0000 


06273 


0000 


06274 


0000 


06275 


0000 


06276 


0000 


06277 


0000 


06300 


0000 



FSB*rN0*f*TNC2-, 
F56T 

FJMP*fwO*ATNLOt»-, 
FLO ONE 

FOV*FWO*FATNT-, 
F8T«FW0*FATNT», 

ATNLOW, FLO 2EB0 

F8T+FW0+FATNC-, 

FLO+FWO+FATNT-. 

F8B*FW0*FATNC3-, 

F8GE 

FJMP*FWD*ATNNOT-, 

FLO*FWD*FATNT». 

FA0*FWD*FATNC4-, 

F8T*FWD*FATNT«, 

FLD*FWD«FATNCJ-, 

FOV*FWD*FATMT-, 

FA0*FWO*FATNC4-. 

FST*FWO*FATNT-, 

Fi,0*FW0*FATNC5-, 

F/f*FWO*FATNC», 

ATNNOT, FLO*FM0*FATNT», 
FMP*FWO*FATNT-, 
F8T*FW0*FATNTT-. 
FL0*FWD*FATNC6-, 
FMP*FWD*FATNTT», 
FAD*FWD«FArNC7*, 
FMP*FWD*FATNTT», 
FA0*FW0*FATNC8-, 
FMP+FW04PATNTT-, 
FAD4FW0«FATNC9*, 
FMP*FWD*FATNTT-, 
FAO ONE 
FMP*FWD*FATNT». 
FAD^FWD^FATNC*. 
F8T*FWD*FATNT», 
FLD^FMD^FATNAX-. 
F8B ONE 
FSST 

FJMP*PW0«ATNBI6-, 
FLO*FWO*FATNCH-, 
F8B*FW0*FATNT«, 
F8T*FW0*FATNT-, 

ATNBXG, FLD^-FWD^FATNT*. 
FEXIT 



TAO 
OCA 
JMP 1 

FATNSXi 

FATNAXf 010)0 



0000 FATNTi 010)0 



FATN8X 

ACS 

ATN 



aC.LBfc 



P*L6-V7 



n»6 



9t,SZ\ 


0ee0 


eb3p2 


eeee 


?fe305 


eaea 


^feSea 


1634 


3b3e5 


eeea 


P63e* 


0000 


e*30T 


2007 


?b3te 


7776 


e(>3ii 


0000 


06312 


177« 


06313 


2230 


06314 


2427 


e<>3is 


2016 


06316 


7331 


86317 


7272 


06320 


2004 


06321 


1405 


06322 


2216 


06323 


1756 


0632a 


0462 


9632S 


4562 


06326 


5764 


06327 


4221 


06330 


3403 


06331 


1766 


06332 


3141 


06335 


6672 


0633S 


5775 


0633S 


2525 


06336 


2337 


063S7 


0000 


06340 


0000 


063*1 


0000 


06342 


2016 


06343 


2207 


06344 


7S2S 


06345 


6034 


06346 


0000 


06347 


0000 



FATNTT, 0>0»0 



F*TNC1> t634>0000l0000 



FATNC2, 200717776(0000 



FATNC3, I77«f2230f2«27 



FATNC4, 2016(733117272 



FATNCSi 2004n40Sf2216 



FATNC6, 1756(0462(4562 



FATNC7, 5 '64(422113403 



PATNC0, 1766(314116672 



FATNC9, 5775(2525(2337 



FATNC, 0(0(0 



FATNCH, 2016(2207(7325 



FATNCJi 6034(0000(0000 



06350 1126 TA600, 

06351 7041 

06352 1367 

06353 7740 

06354 5360 



TAD COLUMN 

CIA 

TAO TAB0E9 

SMA SZA CLA 

JMP TABOK 



/GET WHERE NE ARE NOM. 

/COMRARE AGAINST MHERE WE WANT TO BE. 

/DO we HAVE TO BACK UPf 

/NORI. 



JWiic 


.L8E 






PAL6-V7 


ZhlS5 


lacT 


T*0 




0215 


Zhlih 


«tt3S 


JM8 


I 


PPUTCH 


eb357 


4433 


JMS 


I 


PPUTCH 


^bibZ 


1J26 T»BOK, TAD 




COLUHN 


a^Sfti 


7040 


CMA 






9h3t>i 


llbl 


TAD 




TABOES 


a^363 


775B 


SNA 


SPA 


CLA 


S6364 


5778 


JMP 


I 


TPRINT 


e63bS 


test 


TAD 




0240 


ebSbb 


535T 


JM^ 




TA0OK-i 



tl-7 

/y£P, Give C.R. 

/SEND IT 

/ALSO SEND A NULL CHARACTER TO ALU TTY TO RETURN. 

/GET WHERE ME ARE. 

/NEGATE-l 

/MHERE DO WE WANT TO BET 

/T 

/HERE. EXIT. 

/FARTHER UP, 

/GIVE SPACE AND LOOP AGAIN. 



86367 eeee tabdes, e 

8637e 22B7 TPRINT, PRINTC 



/NORMAL EXIT LOCATION. 



^rj 



SIC.LBI 



PAL8-VT 



ptR 



12 



6ae0 



PACE 



06400 0000 CHKFIT, 



06401 


1160 


TAO 


04 


06002 


4544 


JHS I 


8PLEFT 


06403 


S600 


JMP I 


CHKFIT 


06404 


4561 


JM8 1 


PLINFIX 


06405 


4537 


JMS I 


PRESET 


06406 


4514 


JMS I 


PPRINTXT 


06407 


3562 


Uf Kl 




06410 


3064 


O'.A 


8NUMP1.6 


06*1 1 


5612 


JMI» 1 


.♦I 


06412 


2610 


NEMLIN 





/RESET AUL I/O DEVICES, 

/RESET THIS FLAG NOW 

/THIS HAY BE RIGHT. 



06413 0000 RMLEFT, 



0641« 


7100 


cu 






0641S 


1003 


TAO 




ARRCOC 


06416 


7430 


8ZL 






06417 


S223 


J MP 




NORLFT 


06420 


7041 


CIA 






06421 


1004 


TAO 




CODELOC 


06422 


7620 


8NU 


CLA 




06423 


2213 


NORIFT, ISZ 




RMLEFT 


06424 


561S 


J MP 


I 


RMLEFT 



0642S 


0000 


ABS» 







06426 


3024 




OCA 


ACS 


06427 


5625 




JMP I 


ABS 



Fsic.tei 



P*L«-VT 



12-1 



et>«30 


S(!00 


»T1CKIT,0 




?t>«3l 


34es 


OCA I 


ARHUOC 


?fra32 


2t)8S 


ISZ 


ARHUOC 


26a33 


b63e 


JMP I 


STICKIT 



ibnia 


0000 


INT, 







06«35 


4506 




JM9 I 


PFIX 


06436 


7200 




CLA 




06457 


4946 




JMS I 


PANOBM 


06440 


5634 




JMP I 


INT 



06441 0000 SXERR, 

064*2 7200 C-A 

06441 3241 DCA SXERR 

06444 4477 JM8 I PERROH 

06445 2331 TEXT 'SYNTAX* 

06446 1624 

06447 0130 

06450 0000 

06451 4001 ATLINE, TEXT • AT LINE • 

06452 2440 

06453 1411 

06454 1605 

06455 4000 



/INCASE THIS IS JMS'D TO, 
/AND REMAKE INTO AN "AND* 



06456 7570 07570, 7570 

06457 1024 UPARROM,TAO ACS 

06460 7700 SNA CLA 

06461 1256 TAD 07570 

06462 1025 TAD ACE 

06463 7700 SMA CLA 

06464 5447 JMP I PAR6ERR 
0)6465 4906 JMS I PFIX 
PI6466 5667 JMP I . + t 
fl6467 4369 UPARR2 



iqpSK 


• uee 






P*L6-¥7 


ZbUlg 


-570 


MOREOIM 


,MU8TBE 


/',' 


?6«Tl 


37b3 




3763 




Zfc*72 


72fla 


DIM, 


CLA CMA 




e64T3 


3234 




DC* 


OIMPLAG 


efc4T« 


«sei 




JMS I 


PEVAU 


2b475 


4566 




I8IT 


•CCR) OR 


?ba7b 


iZZZ 




2000 




0b«77 


5270 




JMP 


MOREDIM 


?65e0 


5503 




JMP I 


PEXECUTE/rE8 



12-2 



06501 
06502 

06503 

065ea 

06505 



4004 

0524 

0504 
3700 



DELETED, TEXT ' OELETED^* 



86506 


1850 


AMATCH, TAD 


WORD 


06587 


5064 


OCA 


SNUMFUS 


06918 


1064 


TAD 


8NUMFI.G 


86311 


3457 


OCA I 


FPTR 


86512 


2897 


I8Z 


PPTR 


06513 


1068 


TAD 


CPTR 


06514 


3056 


OCA 


fPTR 


06519 


4966 


I8IT 




06516 


1762 


1762 




06517 


5916 


JMP I 


PSLOOR 


06528 


5721 


JMP I 


.♦I 


06521 


3843 


REMPACK 





/*REM» 



06522 3723 

0652S 2417 

06524 2056 

06525 3722 

06526 0901 

86527 0431 

06538 5637 

06531 3700 



BREAK, 3723r2417f2056 



READY, TEXT '^REAOV.j^' 



fc531 CRUF«.-1 



p*i.B"vr 



12-3 



06532 


0000 


ISOIC, 







Bb533 


4522 




JMS I 


PNONBLNK 


06534 


1344 




TAD 


O7706A 


06535 


7100 




CLt. 




06536 


1065 




TAD 


012 


06537 


7420 




8NL 




06540 


7200 




CUA 




06541 


7430 




SZL 




06542 


2332 




I? 7 


ISOIG 


06543 


5732 




jrip X 


I90Z6 


96544 


7706 


O7706A, 


7706 





86S4S 


1042 


PZEROON.TAO 




PRTIMP 


96546 


1043 


TAO 




oecEXP 


06547 


771B 


8PA 


CUA 




06559 


5354 


JMP 




• ♦4 


06551 


1043 


TAO 




oecExp 


065S2 


7040 


CMA 






06555 


3042 


OCA 




PRTEMP 


06554 


1044 


TAO 




PNUM8UP 


06555 


9025 


OCA 




ACE 


06556 


7344 


CLA 


CLL 


CMA RAL 


86557 


7040 


DIGLUPi CMA 






06560 


1043 


TAO 




OECEXP 


06561 


7440 


SZA 






06562 


5365 


JMP 




.o 


06563 


1J75 


TAO 




02568 


06564 


4433 


JMS 


I 


PPUTCH 


36565 


3043 


OCA 




OECEXP 


06566 


1425 


TAO 


I 


ACE 


06567 


4433 


JMS 


I 


PPUTCH 


96570 


2025 


I8Z 




ACE 


96571 


2042 


laz 




PRTEMP 


06572 


5357 


JMP 




DIGLUP 


26573 


5774 


JMP 


1 


.♦1 


06574 


5123 


PMTENF 




06575 


0256 


0256S, 256 







ftttftrr* s K INSERT RETURN, 



lie. use 



P*Le-VT 



12«4 



6600 



PACE 



6661 


U8r>6661 


6662 


LCP«6662 


6666 


LLSa6666 



06600 


3334 


06601 


7010 


36602 


333S 


06603 


6234 


06604 


0374 


0660S 


1373 


06606 


3371 


06607 


6234 


06610 


0072 


06611 


7106 



INTER, 



DCA 


INTAC 


RAR 




OCA 


INTL 


RIB 




ANO 


OT0 


TAO 


06202 


DCA 


INTCIF 


RIS 




ANO 


07 



/SAVE ALL IMPORTANT STUFF ON INTERUPT. 



CLL RTL 



/SAVE INSTRUCTION FIELD 
/SHIFT IT OVER 



Pic.lbe 



P»LB«V7 



12-5 



ebbis 


7004 


RAt 






Zbbll 


1215 


T*0 




06201* 


Zbbia 


3370 


OCA 




IMTCOF 


26615 


6201 


O6201A, CDF 











IFZERO 


HACHINE* 


06616 


7000 


NOP 




* 






IFNZRO 


MACHINE^ 






JMS 


I 


3PECINT 


86617 


6041 


T8F 






96620 


5223 


JMP 




.♦3 


06621 


6042 


TCF 






96622 


5310 


JMP 




INOOUN 


06623 


6661 


L8F 






06624 


5227 


JMP 




.♦3 


0662S 


6662 


LCF 






06626 


5310 


J^' 




INOOUN 


06627 


6021 


P'.r 






06630 


5233 


JMP 




.♦3 


86631 


6022 


PCP 






06632 


5310 


JMP 




JNOOUN 


06633 


6011 


R8F 






06634 


5241 


JMP 




INOPPP 


066SS 


7330 


CLA 


cut. 


CML RAR 


06636 


6012 


RRB 






06637 


3740 


OCA 


X 


PHRCHAR 


06640 


9344 


JMP 




INTEXT 


06641 


6663 


INOPPP, 6663 






06642 


S24S 


JMP 




INOTTT 


06643 


6667 


6667 






06644 


5344 


JMP 




INTEXT 


0664S 


6031 


INOTTT, K8F 






06646 


7402 


HLT 






06647 


6036 


KRB 






06690 


0027 


AND 




0177 


06651 


3336 


OCA 




INTEMP 


06652 


1336 


TAO 




INTEMP 


06653 


1376 


TAD 




07775 


06654 


74Se 


SNA 






06655 


526S 


JMP 




FCNTLC 


06656 


J1T7 


TAO 




077640 


0665T 


7690 


SNA 


CLA 




06660 


5303 


JMP 




FCNTLO 


06661 


7330 


CLA 


CLL 


CML RAR 


06662 


1336 


TAO 




INTEMP 


06663 


3741 


OCA 


I 


PINCHAR 


06664 


5344 


JMP 




INTEXT 


06665 


1134 


FCNTLC, TAO 




NOINT 



/ANO THE 1N8TUCTI0N FIELD 
/JUST IN CASE. 

/TO KEEP PAGE SAME SIZE. 

/CHECK FOR SPECIAL INTERUPT DEVICE. 



/IS IT THE TELEPRINTER. 
/NO 

/VEP, CLEAN IT UP, 
/PRINTER? 

/YEP. 

/PUNCH? 



/READERY 

/NOPE, 

/4000 TO AC 

/READ IN THE CHARACTER, 

/EXIT FROM THE INTERUPT, 

/LINE PRINTER ERRORt 

/NOPE, 

/VEP, IN60RE THE LINE PRINTER NOM, 

/AND EXIT. 

/IS IT THE KEVBOARD. 

/NOPE. A BADOV. ME'RE F—KEO. 

/READ IN THE CHARACTER, 

/CHOP OFF THE CRAP, 

/SAVE IN THE INTERUPT TEMPORARY, 

/RECALL IT NOM, BUBBY, 

/IS IT A "C 

/? 

/VESl 

/•o» 



/SET HIGH ORDER BIT ON FOR SAFETY. 

/PUT IT AWAY 

/AND EXIT FROM INTERUPT, 

/CHECK IF OK TO INTERUPT, 



ilC.LBE 



P*Le-V7 



12-6 



?bbbb 


7640 




SZ* 


CLA 




?bhkl 


5300 




JMP 




CNTLCF 


et-bTe 


6002 


CNTtCR, 


lOF 






06671 


45<i2 




JMS 


I 


DEUOUT 


06672 


4537 




JMS 


I 


PRESET 


26673 


4514 




JMS 


I 


PPRINTXT 


P6674 


6522 




BREAK 




06675 


U2S 




T*D 




PPDUIST 


06676 


3036 




DCA 




POL 


06677 


5520 




JMP 


I 


PEDIT 


06700 


7040 


CNTLCr, 


CMA 






06701 


3134 




DCA 




NOXNT 


06702 


S344 




JMP 




INTEXT 


06703 


4542 


FCNTLO, 


JMS 


I 


DELOUT 


067e<| 


1133 




TAD 




CNTLO 


06705 


7040 




CMA 






06706 


3133 




OCA 




CNTLO 


06707 


5344 




JMP 




INTEXT 


06710 


3742 


INOOUN, 


OUA 


I 


P0FLA6 


06711 


4743 




JM8 


Z 


POUTIT 


06711 


SS44 




JMP 




INTEXT 



/NOT OR, 

/TURN OFF INTERUPTS TO BE SURE, 

/DELETE OUTPUT BUFFERS, 

/RESET ALL I/O DEVICES. 

/GIVE THE STOP MESSAGE 

/X OON'T LIKE "THOSE PEOPLE" LOOKING OVER MY SHOULDER KHILE 1 TYPE, 

/RESET PUSH OOMN POINTER 

/AND RESTART CISAB 

/RESET •C FOUND SWITCH, 



/DELETE THE OUTPUT NOW, BABY, 
/NEGATE CNTLO SWITCH. 



/RESET OUTPUT FLAG, 
/PREFORM THE NEXT OPERATION. 



06713 


0000 


BIDLE, 









06714 


6002 




lOP 






0671S 


7201 




CLA 


XAC 




06716 


3337 




DCA 




BUSY 


06717 


6214 




RDF 






06720 


1215 




TAO 




O6201A 


06721 


3362 




OCA 




INTECDF 


06722 


1331 




TAD 




IDLELK 


06723 


7104 




CIL 


RAL 




06724 


1332 




TAO 




IDLCAC 


0672S 


6211 


IDLECD, 


CDF 




le 


06726 


6202 


IDLECZ, 


CIF 







06727 


6001 




ION 






06730 


5733 




JMP 


I 


IDLEPC 


06731 


0000 


lOLELK, 









06732 


0000 


IDLEAC, 









06733 


7415 


IDLEPCi 


NUtJOB 




06734 


0000 


INTAC, 









06735 


0000 


INTL» 









06736 


0000 


INTEMP, 









0673T 


0000 


BUSV* 









06740 


7256 


PHRCHAR 


iHRCHAR 




06741 


7255 


PINCHAR 


iINCHAR 





/THE IDLE ROUTINE 



/RESET THE IDLE TASK FLAG, 
/SAVE THE DATA FIELD NOW, 

/AND PLACE IN WHERE TO 60 ON IDLE EXIT, 
/RESTORE THE IDLE ROUTINES PARAMETERS, 



/AND 00 THE IDLE STUFF 



FlC.lBt 



l»«Le-V7 



12-7 



fhlii 


7188 


P67(j3 


7eos 


eeraa 


1337 


e^ras 


7650 


?!67a6 


S3bS 


afcTar 


3337 


P6T50 


1880 


e*T5i 


3333 


ebTSi 


1334 


06753 


3332 


06750 


1335 


86755 


3331 


06756 


1371 



POUTIT, OUTIT 



INTEXT, 



T*D 


»U3V 


SNA CLA 




JMp 


INTOU 


OCA 


BUST 


7A0 





OCA 


IDLEPC 


TAO 


INTAC 


OCA 


lOLEAC 


TAD 


INTL 


OCA 


IDLELK 


TAD 


INTCXF 



/GET STATUS, 

/ME MERE NOT IDCE. EXIT MOM, 
/RESET BUSY FLAG, 



/SAVE SH-T, 



/'•sWtC.lU 



^hlbH 5T13 



p»Le-v7 



I»»^^13 



36757 


3326 


DCA 


IDLCCIF 


■^blbZ 


1578 


T*0 


INTCOF 


-16761 


3325 


OCA 


lOUCCOF 


^6762 


7082 


INTECD, MLT 




06763 


6eei 


ION 





JMP I BIOLE 



/IDLE •<0U71NES CALLING CDF, 
/AND 60 BACK NOW. 



06765 1335 INTOU, TAD INTL 

06766 7iea CLL RAL 
133« TAO INTAC 
7482 INTCDF, HLT 
7002 INTCIF, HLT 

1 ION 



06767 
^6770 
06771 
36772 
06773 5000 



JMP I 







06770 0070 070, 70 

06775 6202 06202, 62^2 

06776 7775 OT7T5, T7T5 

06777 7764 077640, 7764 



7000 



PAGE 



07000 0000 PUTEA, 

07001 3241 OCA OPUTC 



/THE CHARACTER PUTTER, 
/SAVE TNI CHARACTER NOM, 



ybi^l 


• laE 








PALB-V 


27282 


62ia 




RDP 






2T3B3 


1225 




T»0 




062016 


2T2e« 


3237 




DC* 




PUTCDF 


?TJ?5 


62ei 


062018, 


COF 







2722* 


7«10 




SKP 






27227 


a76t 


PUTLP» 


JMS 


I 


PSIDLE 


a72l0 


1242 




TAD 




OCOUNT 


87211 


7450 




SNA 






87312 


5223 




JMP 




PUTCIN 


Z7213 


1315 




TAD 




OCMLIM 


Z78ia 


7650 




SNA 


CCA 




a72tS 


5207 




JMP 




PUTLP 


27216 


1131 




TAD 




OUTDEV 


27217 


7041 




CIA 






27220 


1132 




TAD 




OOEV 


27221 


7640 




SZA 


CUA 




27222 


5207 




JMP 




PUTLP 


27023 


6002 


PUTCIN, 


lOF 






27224 


1133 




TAD 




CNTLO 


27025 


7650 




SNA 


CLA 




07026 


1131 




TAO 




OUTDEV 


§7017 


313a 




OCA 




OOEV 


07030 


2242 




I8Z 




OCOUNT 


07031 


1241 




TAO 




OPUTC 


07032 


3634 




DCA 


I 


IPOINT 


07033 


4301 




JMS 




OBOP 


0703« 


1165 


IPOINT, 


OBLOW 




070SS 


4243 




JMS 




OUTIT 


lT03fc 


6001 




ION 






07037 


7402 


PUTCDF, 


HLT 






s7««e 


5600 




JMP 


I 


PUTER 


070«l 


0000 


OPUTC# 









07042 


0000 


OCOUNT, 









07043 


0000 


OUTIT, 









07044 


1300 




TAD 




OPLAC 


0704S 


7640 




SZA 


CLA 




07046 


5643 




JMP 


X 


OUTIT 


07047 


1242 




TAD 




OCOUNT 


270S0 


7450 




SNA 






27051 


5643 




JMP 


X 


OUTIT 


07082 


1314 




TAO 




07T7T 


070S3 


3242 




DCA 




OCOUNT 


07094 


1132 




TAD 




ooev 


0709S 


1273 




TAD 




OPOTAS 


370S6 


3300 




DCA 




OFLAC 


27057 


1700 




TAD 


I 


0PLA6 


27060 


3262 




OCA 




.♦1 


27061 


1665 




TAD 


I 


OPOINT 


07262 


7402 




MLT 






07063 


7200 




CLA 







PAGl 



•1 



/READ THE DATA PICLD NOM. 
/CREATE PROPER COF INSTRUCTION, 
/SAVE COF INSTRUCTION, 
/RESET COF TO THIS DATA FIELD, 

/CALL IN THE IDLE ROUTINE NOM. 

/GET NUMBER OF CHARACTERS IN THE BUFFER, 

/PUT IT IN NOW, BABY, 

/TEST FOR TOO MANY IN BUFFER, 

/YEP, WAIT AWHILE. 



/CHECK FOR A MATCH, 

/NOPE, WAIT FOR BUFFER TO BECOME EMTPY, 

/TURN THEM OFF, BABY, 

/CHECK FOR CONTROL "0" ACTIVE, 

/MOVE OVER OUTPUT DEVICE, 

/STICK A CHARACTER IN THE BUFFER. 

/BOP UP THE POINTER NOW, 

/SEND IT OUT 
/RESTORE INTCRUPTS, 
/USER'S CORRECT COF 



/FLAG STILL UP. EXIT. 



/NO CHARS TO GO. SO WE MILL. 

/PLEASE IGNORE THE COMMENTS OF A DERANGED MIND, 



/MAP DEVICE INTO TABEL TOO ET WHAT TO DO, 

/AND ALSO RESET FLAG AT THE SAME TIME, 

/GET THE MAGIC INSTUCTION. 

/AND PLACE IT HERE. 

/GET THE CHARACTER. 

/AND HALT, 

/AFTER PRINTING THE CHARACTER, 



/9**W.I.8£ 



p*te-vT 



i-rZha 


e3ei 




JM8 


080P 


ZlZbi 


1165 


OPOI^T, 


OaiOta 




3??fcb 


%6a1 




JMP 1 


OUTIT 


erzbT 


7228 


OPNULi 


CIA 




jrare 


3320 




OCA 


OFLAG 


«T271 


a?«2 




JH8 I 


OEUOUT 


2TaT2 


Sbas 




JHP I 


OUTIT 


27873 


?a74 


OPOTAB, 


.♦I 




8T874 


52*7 




JMP 


OPNUL 


87e75 


6aa6 




TLS 




aT8Tfc 


6826 




PLS 




37277 


6666 




LLS 





PAcc^TS-a 

/WE SHALL INCREMENT THE POINTER, 

/AND EXIT, 

/RESET OFUAG 

/SO OEVlCeS INACTIVE. 

/DELETE ANY STRAY CHARACTERS IN THE BUFFER, 

/AND RETURN NOW. 

/NUL DEVICE (NO ECHOING) 



sTiee eeee oflag, e 



ertet 


8888 


OBOPi 


8 




eries 


ITBI 




TAD I 


OBOP 


97183 


1312 




TAO 


OTSTl 


• 71S4 


7«S0 




SNA 




87185 


1315 




TAO 


OFLOM 


87iefc 


1313 




TAD 


OCOR 


87187 


3781 




OCA I 


OBOP 


87118 


2381 




ISZ 


OBOP 


87111 


5T81 




JMIi I 


OBOP 


07112 


6681 


0T8TI, 


•0BHI6H 




87113 


1288 


OCORi 


0BHIGH4>1 


B7iia 


7777 


07777, 


7777 




87115 


7765 


OFLOM, 


«OBHIGH< 


■1«0BL0M 




7115 


OCMLIM* 


OFLOW 




87116 


8888 


RESETl, 







87117 


7201 




CLA lAC 




87128 


3131 




DCA 


OUTOEV 


87121 


7201 




CLA lAC 




87122 


3138 




DCA 


0UTD2 


87123 


7281 




CLA lAC 




8712« 


3127 




OCA 


INDfV 


87125 


3133 




DCA 


CNTLO 


87126 


3134 




OCA 


NOINT 


87127 


6201 




CDF 


8 


87138 


3756 




OCA I 


QHRCHAR 


27131 


3762 




OCA I 


SINCHAR 


37132 


3757 




OCA I 


PBUSY 


87133 


3768 




DCA I 


PPXRA 



/CLEAR NO-INTERUPT FLAG, 
/RESET DATA FIELD TO HERE, 
/CLEAR ALL INPUT FLAGS, 

/AND ALSO THE BUSY FLAG, 
/RESET NULL AFTER C,R, FLAG. 



/Ml 



F.LSt 



P4L6-V7 



CAG 



•.. 



IfMZ»0 M»CHI^t« 



/PHEP4SE TO RESET CLOCK, 

/RESET CLOCK NOW COR RATHER A-0 HtlPFER] 



27l3« 
?T135 


6211 
62?1 


IFZEHO 

COF 

lOK 


MACMINt< 

le 

> 


?7l3fc 
Z71J7 


6665 
5716 


6665 
JMP I 


RE5ET1 



/TELL LPT IT'S OK TO IMTERUPT NOW, 



?7l4a Z35a LLLUUUf UUULLL 



/POINTER TO UPPER CORE HESETER, 



Z7lal 


0000 


RESETS, 







27U2 


4537 




JMS I 


PRESET 


Z7103 


0542 




JMS I 


DEL OUT 


37114 


3300 




OCA 


OPLAS 


a7i«5 


5741 




JMP I 


RESETZ 


27106 


0000 


OUTOEU, 







87107 


3242 




OCA 


OCOUNT 


27150 


1355 




TAO 


0PR8T 


87151 


3265 




OCA 


OPOINT 


07152 


1355 




TAO 


OPRST 


87153 


3234 




OCA 


IPOINT 


37154 


5T4fc 




JMP I 


OUTOEL 


07155 


1165 


OPRST, 


OBIOW 




07156 


7256 


QHRCHAR 


fHRCHAR 




07157 


6737 


PBUSYf 


BUSY 




07160 


0776 


PPXRAf 


PUTXRA 




07161 


6713 


PBIOLE, 


BIOUE 




07162 


7255 


SINCHAR 


fINCHAR 





/BAJVtSC 



^ALS-VT 



Pknr 



(•4 



87163 


7281 


L^TOUT, 


CLA 


XAC 




eTib« 


7981 


PTPOUT, 


lAC 






eTifes 


7801 


T7V0UT, 


lAC 






87166 


3131 




OCA 




OUTOEV 


87167 


1131 




TAO 




OUTOEV 


07178 


3138 




OCA 




0UT02 


87171 


5375 




JMP 




DEVCOM 


87172 


7281 


PTRIN, 


CLA 


lAC 




87173 


7881 


TTYIN, 


lAC 






8717« 


3127 




OCA 




INOEV 


87175 


«177 


DEVCOM, 


JM8 




BETWD 


87176 


«570 


DEVCON, 


Musrrp 




87177 


2880 




2008 


1 




87208 


sses 




JMP 


I 


PEXeCUTC 



/LINE PRINTER OUTPUT 

/PUNCH OUT 

/TTY OUT 

/AND »ET IT UP 

/ALSO HOVE OVER TO 8EC0N0ARV DEVICE, 

/AND CHECK FOR END, 



/C.R. OR \ 



87281 0000 6ETCH, 

87282 «270 JM8 6WHERE 
87223 4697 JMS I QBIDLE 
87284 1299 TAO INCHAR 



f^K 



IC.L0C 



^Ai.a-v7 



13*S 



0T2e5 


7«50 




SNA 




araefc 


5283 




JMP 


GETCM«2 


erzar 


Z227 




AND 


0177 


07218 


3254 




OCA 


GTEMP 


0T2n 


3255 




DCA 


INCHAR 


37212 


3256 




DC A 


HRCMAR 


07213 


1135 




TAD 


RB8MCH 


07214 


7650 




SNA CLA 




07215 


5224 




JMP 


6RB 


0721ft 


1254 




TAD 


CTEMP 


07217 


1260 




TAD 


07601 


07220 


7640 




SZA CIA 




07221 


5224 




JMP 


GRB 


07222 


1261 


6RDEUA, 


TAD 


0137 


07223 


5601 




JMP J 


GETCM 


07224 


1254 


GRB, 


TAD 


GTEMP 


07225 


1855 




TAD 


07770 


07226 


7450 




SNA 




07227 


5222 




Jfp 


6RDCLA 


07230 


1262 




TT/ 


07612 


07231 


749B 




s.a 




072S2 


5247 




JMP 


SALT 


0T23S 


1266 




TAD 


014S 


07234 


765i 




SNA CLA 




07235 


5247 




JMP 


GALT 


0723ft 


12S4 




TAO 


STEMP 


07237 


1263 




TAD 


O7640C 


07240 


7Sli 




SPA 




07241 


stsi 




JMP 


GOUT 


07242 


1264 




TAD 


07746 


07243 


7588 




8MA 




07244 


5251 




JMP 


GOUT 


07245 


1265 




TAO 


0132 


07246 


5601 




JMP X 


GETCM 


07247 


1267 


6ALT, 


TAD 


0175 


07250 


5681 




JMP I 


GETCM 


07251 


7208 


60UT> 


CLA 




07252 


1254 




TAO 


GTEMP 


07253 


5681 




JMP I 


GETCM 


07254 


0008 


OTEM^, 







07255 


0000 


XNCHAR, 







07256 


0000 


HRCHAR, 







07257 


6713 


OBIOLCi 


BIOLE 




07260 


7681 


0768U 


7601 




07261 


0137 


01S7, 


137 




07262 


7611 


07611* 


7612 




07263 


7648 


076«eC, 


7640 




07264 


7746 


07746, 


7746 





87265 0132 01S2, 132 
e7266 eias 0ia3, i«3 

872*7 0175 017S, 175 



PAte-v? 



13-k 



BTiTB 


0000 


6WHCRE, 






B7271 


72«0 


CLA 


CMA 




07272 


1127 


TAD 




INOEV 


072T3 


2270 


ISZ 




6WHERE 


07270 


7750 


SPA 


SNA 


CLA 


07275 


5670 


JMP 


I 


GWHERE 


0727fc 


1264 


TAO 




07746 


07277 


3254 


OCA 




GTEMP 


07300 


3256 


OCA 




HRCHAR 


07301 


6014 


RFC 






07302 


1256 


HRLOP, TAO 




HRCHAR 


07303 


7440 


SZA 






0730* 


5321 


J IP 




HPOUNO 


07303 


2255 


liZ 




ZNCHAR 


07306 


5302 


JMP 




HRLOP 


07307 


2254 


ISZ 




6TEMP 


07310 


5302 


JMP 




HRLOP 


BTln 


7201 


CCA 


XAC 




07312 


3131 


OCA 




OUTOEV 


07313 


3133 


OCA 




CNTLO 


07314 


4514 


JMS 


X 


PPRINTXT 



/INPUT«TTY 



/START THE READER NOW, 



/GOT IT, 



/RESET OUTPUT DEVICE FOR A SECOND, 
/RESET THE CONTROL "0" SWITCH ALSO, 
/GIVE THE MESSAGE, 



'Pfl 



IC,u«t 



PAL»-VT 



PK9rii 



Z7315 
27316 
eTSj7 
27328 


7323 

72BI 
3127 

$670 




hRMCS 
CLA lAC 
OCA 
JMP I 


INDEV 
GWHERE 


87321 
07322 


2270 

5*70 


HrOUNDy 


ISZ 

JMP I 


GWHERE 
GWHERE 


07323 
a732« 
07325 


3T2a 
2«3l 

3708 


MRHIS, 


TEXT 


'*TTY^ 



07326 


0000 


COWT, 







0732T 


6281 




COP 





07330 


37«2 




DC« I 


CCXRA 


07331 


1743 


COWTLRf 


T*; I 


COWTFP 


07332 


6211 




ctr 


10 


07333 


7650 




SNA CLA 




0733* 


S3«0 




JMP 


COWTO 


0T335 


•T44 




JH9 X 


COWTW 


07336 


6i8t 




COF 





0735T 


5331 




JMP 


COWTUF 


07S40 


3133 


COMTO, 


DCA 


CNTLO 


07341 


5726 




JMP I 


COtaT 



/THIS ROUTINE WAITS FOP OUTPUT TO STOP, 

/SET 0,F. TO THIS FICLC, 

/SET OR RESET NULL AFTKR C.R, FLAG, 

/6ET OUTPUT FLAG STATIS, 

/RESET D.F, 

/IS OUTPUT OONEt 

/YEP, EXIT, 

/NOFE, IDLE LOOP TILL INTERUPT, 

/RESET D.F, TO ZERO, 

/AND LOOP. 

/CLEAR CONTROL STATE, 



07342 8776 CCXRA, PUTXRA 

07343 7100 COMTFPr 0FLA6 

07344 6713 COWTN, BIOLE 



[IC.CSE 



273ttS 


0000 


tllih 


ai77 


eT3«7 


I3a5 


P7J5? 


3352 


e7351 


5353 


87352 


0000 


eT353 


1450 


8735« 


6201 


B7355 


1752 


e7356 


6211 


87357 


2352 


e7360 


7»50 


073^1 


5752 


07362 


5500 



XGMUST, 



XMUST, 





PAI.8-V7 







JMS 


GETWD 


TAO 


XGMU8T 


DC* 


XMUST 


JMP 


XMUST^l 







TAO I 


WORD 


COF 





TAD I 


XMUST 


CDF 


10 


isz 


XMUST 


SNA CLA 




JMP I 


XMUST 


JMP I 


PSXERR 



t4«l 



6 K INSERT. 
8 K INSERT. 



07363 


4477 


ARGERRi JMS I PERROR 


07364 


0122 


TEXT 'ARGUMENT* 


07365 


0725 




07366 


1505 




07367 


1624 




07370 


0000 




07371 


5660 


DOTZERO.TEXT »,0» 



07372 0000 



07373 


4477 


RTIRR. 


JMS I 


PERROR 


07374 


2201 




TEXT 


'RATE* 


07375 


240S 








07376 


0000 









/GIVE RATE ERROR FOR CLOCK. 



lic.kae 



^»LB»V7 



ta"l 



7400 



PAfiC 







xrzcRO 


HACHINE4 






NOPUNCH^ 


07400 


1136 PLOT, TAO 




DISS 


07401 


7640 


SZA 


CLA 




07402 


5220 


JHP 




0B60T 


07403 


1240 


TAD 




PA88UME 


07404 


4544 


JM» 


I 


8PLEPT 


07405 


7410 


8KP 






07406 


5755 


JMP 


I 


NP8PEHR 


07407 


1003 


TAO 




ARRLOC 


07410 


3311 


OCA 




0LA8T 


07411 


1003 


TAD 




ARRLOC 


07412 


1240 


TAO 




PA88UME 


0741S 


3003 


OCA 




ARRLOC 


07414 


7240 


CLA 


CMA 




07415 


1003 


TAO 




ARRLOC 


07416 


3312 


OCA 




D0LA8T 


07417 


4314 


JM8 




PLOTB 


07420 


3313 DB60T, OCA 




OBAO 


07421 


4177 


JH8 




GETWO 


07422 


4641 


JM8 


1 


PMEVAL 


07423 


4439 


FENTEB 




07424 


6217 


FMP*P8MIFT*FHI0», 



/GET SUPPER A00RE8S. 
/I8 THERE ONEt 

/GET AS8UMME0 LENGTH. 
/ROOM LEFT TO PIT IT IN, 

/NO. 

/GET A USABLE A00RE88, 

/BAVE AWAY. 

/NOW UPOATE OUR ARRAV. 



/GET LA8T MORO OP OUR BUPPER NOW. 

/ANO 60. 

/FIGURE OUT OUR CRAP NOW, 

/TELL IT POINT 18 ON 8CREEN 
/GET NEXT 8YNTATICAL ELEMENT. 
/EVALUATE OUR EKPRE88I0N, 

/CORRECT NUMBER FOR 8YMETR1CAL SCREEN, 



[C.iaE 



P*LB"VT 



t4*S 



0T«25 


0000 




fEXlT 




07426 


4326 




Jf18 


DBLIT 


erag? 


4641 




JM5 1 


PMEVAt 


aTttsa 


4326 




JM8 


OBLIT 


araji 


1313 




TAD 


DBAO 


07«32 


7041 




CIA 




eT433 


1311 




TAD 


DINP 


07434 


3311 




OCA 


OINP 


07435 


7330 




CLA CLL 


CMU RAR 


07436 


3711 




OCA I 


DINP 


07437 


5642 




JMP I 


PDEVCON 


07440 


1750 


PASSUME 


,1750 




07441 


7415 


PMEVAl,» 


MEVAL 




07442 


71T6 


POfVCON 


,OEVCON 




07443 


2007 


F8HIFT, 


20071160010000 


07444 


1600 








07443 


0000 









/PUT IT IN T'^E iUPFER. 

/GET r COORDINATE, 

/PUT IT IN THE SUFFER, 

/IS IT A BAD ONEt «OFF SCREENT* 



/400eaEND OF BUFFER CHARACTER. 



/HA6IC CONSTANT FOR STMETRICAl. SCREEN. 



07446 


1136 


USE, 


TAO 




0I8B 


07447 


7640 




SZA 


CtA 




07450 


5661 




JHP 


I 


USKIPIT 


07451 


4262 




JHS 




6ETARY 


07452 


1020 




TAD 




ACl 


07453 


3311 




DCA 




OLAST 


07454 


10 IT 




TAO 




ACS 


074SS 


3312 




DCA 




ODLAST 


07456 


4314 




JHS 




PUOTB 


0745T 


4177 




JHS 




6ETWD 


07460 


5642 




JHP 


I 


POEVCON 


07461 


0467 


USKIPIT 


,8KIPIT 




07462 


0000 


&ETARY, 









07463 


4571 




SET< 


•MU8T8E 


07464 


7000 




700e 


1 




07465 


1050 




TAO 




MORO 


07466 


3302 




DCA 




UVP 


0T46T 


2050 




I8Z 




MORO 


07470 


1450 




TAO 


I 


MORO 


07471 


7001 




lAC 






07472 


3020 




OCA 




ACl 


0T4T3 


2050 




I8Z 




WORD 


07474 


1450 




TAO 


I 


WORD 


07475 


3303 




DCA 




UIP 


07476 


2050 




I8Z 




MORO 


07477 


1450 




TAO 


I 


MORO 


07500 


3304 




DCA 




UIP 


07501 


4502 




JHS 


I 


PSETADO 


07502 


0000 


UVP, 









07503 


0000 


UIP, 










/IS DISPLAY BUFFER ASSIGNED. 

/YES, EXIT, 

/GET THE ARRAY DATA 

/GET FIRST FREE LOCATION 

/GET SECOND FREE LOCATION 

/SAVE AMAY. 

/SET UP STUFF, 

/GET NEXT ELIHAENT AFTER VARIABLE. 



/THIS ROUTINE GETS THE FIRST AND LAST LOCATIONS OF AN ARRAY, 
/HUST BE A VARIABLE, 

/GET POINTER TO VARIABLE. 



/GET POINTER NOW. 
/SAVE AWAY. 



fiC.LflE 



P*Ld-V7 



ia-4 



a75e« eeee uin, 

erses 7326 

?75?7 3ai7 

07510 Sfc»2 





CI.4 CLL CMC RTL 
7*0 tOORESS 
DCA ACS 

JMP I &ETARY 



/♦2 



a7Sll 0000 DkAST/ 

7511 DINP»01.*87 

87S12 0000 DDLAST, 

07SI3 0000 DBAD, 



87S14 0000 PLOTS, 



07St5 


7240 


CIA CMA 




a7Su 


1311 


TAO 


0LA8T 


•7517 


3136 


OCA 


0180 


07520 


1325 


TAO 


04081 


07521 


3712 


DCA I 


D0LA8T 


07522 


7330 


CLA CLL 


CML PAR 


07523 


3711 


DCA I 


DLAST 


07S24 


5714 


JMP I 


PLOT0 



07525 4001 04001, 



4081 



0752* 


0000 


DBLIT, 







07527 


1824 




TAD 


ACS 


07S38 


7700 




SMA CLA 




87531 


5335 




JMP 


.♦« 


87532 


7326 


OBBAO, 


CLA CLL 


CML PTL 


07533 


3313 




DCA 


DBAO 


07534 


5347 




JMP 


DBISPT 



tC.LSC 



P*LB-V7 



F*l^l««5 



eT535 

2755fc 
375JT 

?T541 
?T5*2 
»T5«3 

e7S«a 

87S«5 

87558 

87551 
87S52 
87553 



1825 

issa 

7788 
5332 
1X25 
1865 
3825 
4506 
7288 

tetb 

4356 
7338 
23U 
«35ft 
572fc 



DBISRT, 



T»D 


ACE 


T«0 


075778 


8M* CLA 




JMP 


OBB«0 


T*0 


ACE 


r*D 


012 


OCA 


ACE 


JMS I 


PFIX 


CLA 




TAO 


*C3 


JMS 


D8PUT 



CLA CLL CML RAR 

ISZ OXNP 

JMS OBPUT 

JMP I 08UIT 



e755« 7577 07577B, 7577 
87555 8378 MPSPERR^SPACERR 



«7S5h 
•7557 

87561 
87562 
87S6S 
87564 
87565 
8TS66 



eeee 

3817 
7358 

1711 
7658 
5755 
1817 
3711 
57S6 



DBPUTi 



OCA AC2 

CLA CLL CMA RAR 
TAO X OXNP 

SNA CLA 



JMP I 
TAO 
OCA I 
JMP X 



NP8PERR 
AC2 

OXNP 
DBPUT 



/••4001«3777 



/NO ROOM XN BUFPER. BOMB HIM, 



87S»T 4477 

87578 015S 

87571 8440 

87572 0629 
•7973 1414 
87974 BBBfl 



UUDATA, JMS X 
TEXT 



PCRROft 
•A.O PULL* 



ENPUNCH 



XPNZRO MACHXNCi 



» 



IFZfRO MACHINE< 
7008 *^UOT» 



07400 0000 SETUPf 

07401 1005 TA") PSYMTAB 

07402 SeSfc OCA EPTR 

07403 1086 TAD N8VMTAB 
87484 3857 OCA FPTR 
87405 313fc OCA DX8B 
074e« 5608 JHP I SETUP 



IFNZRO MACHINE* 
CDEVCOMiDCVCOM 

» 

IFZERO MACHINE* 
8088 C0evC0Ml8 



87407 0008 ISETi 

87410 6058 DXUC 

87411 6055 DXXV 



nc.L8E 

27412 46ia 
?7413 5607 

87414 71«l 



IIXR, 



JMS I 
JMP 1 
RESETS 



^*L»-VT 



>mr 



l«-7 



XIXR 
ISCT 



IFZERO MACHINE* 
NOPUNCH> 



«T«t5 0000 MEVAL> 



0T416 




I8IT 




•T»17 




2008 




87428 




SKP 




87*21 




JMP I 


P8XERR 


87422 




I8IT 




8742S 




37ftS 




87424 




JMP 


.♦s 


e742S 




JN8 


6ETMD 


eT42ft 




JMP 


HCVAL^l 


BT42T 




TAD 


MEVAL 


07438 




JMP I 


MEVAL80 



87431 1087 MEVAL60,EVALG0 



/IS IT A C.R, 



87432 


1136 CLEAR, TAO 


DI88 




87433 


7450 


SNA 




/IS IT THERE? 


87434 


5488 


JMI» 1 


CDEVCOH 


/NORE, 


87435 


3813 


OCA 


INDEXl 




8743* 


7338 


CLA CLU 


CML RAR 


/480e 


87437 


3413 


OCA I 


INDEXl 




87448 


6201 


CDF 





/RESET INRUT POINTER ALSO. 


87441 


1011 


TAD 


INOEXl 




07442 


3645 


OCA I 


COINF 




87443 


4211 


cor 


18 




87444 


5400 


JMP 1 


COEVCOM 





aT««S TStl COINP, OINP 



^•L»«V7 



PA9Vl««S 



eTsA* 


2920 


Lt-LJHS, 







e7««r 


l»«b 




TAD I 


ILLJMS 


erase 


22a6 




ISZ 


ULLJMS 


eT«si 


325T 




DC* 


LLLJMP 


e7«52 


6*57 




JM8 I 


LILJM? 


e7«55 


7418 




SKP 





/IN CASE OF SKIPPING RETURN. 



FIC.U8C 



PAI.S-V7 



15 



erasa 22«6 

ZTOSS 6213 
ZTttSb Sbttb 



laz LLLjriS 
CIP COF IB 

JM^ 1 Ltl-JMS 



erasr 0000 

07460 1657 

07461 3257 

07462 5657 



LLLJMP, 

TAD I 
OCA 

jnp I 



LLLJMP 
LLLJMP 
LLtJMP 



07463 7326 DELAY, CL \ CLL CML RTL 

07464 3220 OCA NOELAV 



/♦2 

/SET UP OEALY TIHE (ONE TIME THROUGH). 









XPNZRO 


MACHINE* 






NUtJOB, 


TAO 

XPZERO 
ENPUNCH 


DISB 
MACHINE* 




7415 




•MEVAL 




07415 


7001 


NUtJOB, 


I AC 




07416 


5215 




J MP 


NULJOB 








NOPUNCH» 


07417 


3015 




DCA 


0I8AUT0 


07420 


1220 




TAD 


NOELAV 


07421 


7110 




CLl RAP 




07422 


3220 




DCA 


NOELAV 


07423 


7430 




SZL 




07424 


5400 




JMP I 


CDEVCOM 


07425 


1136 




TAO 


OISB 


07426 


765B 




SNA CLA 




07427 


5215 




JMP 


NULJOB 


07430 


1415 


NULLOP, 


TAD I 


OXSAUTO 


07431 


7510 




SPA 




07432 


5254 




JMP 


NULCMO 


07433 


1256 


1 


TAO 


OT000C 


07434 


6052 




DISO 




07435 


5234 




JMP 


.-i 



/SET UP AUTO INDEX REGISTER NOW. 



/MITH POINTER TO OUR BUFFER. 
/UPDATE DELAY WORD. 



/ARE WE FINISHED WITH DELAY COMMANDT 

/YEP, EXIT NOW, 

/GET OUR WORD NOW. 

/ZERO? 

/YEP. WAIT AWHILE. 



/BRING DOWN INTO RANGE OF SCREEN, 



87436 
Z7«37 

?7<iai 

e7a«2 

e7«o3 
e744a 

07445 
87446 
07447 
074Sa 
27451 
07458 
87453 

3745* 
87453 



lit 




PALB-V7 


6853 


out 




7208 


CU4 




1415 


T*0 X 


0IS4UT0 


75J0 


SP» 




5254 


jnp 


NUUCHO 


1256 


TAO 


O70eec 


6052 


OISD 




5244 


JMP 


.-I 


60S4 


OIUV 




7280 


CL« 




6052 


OISO 




5250 


JMP 


.-1 


6055 


OIXY 




5230 


JMP 


NUUOP 


7200 


NULCHD, CLA 




5215 


JMP 


NUtJOB 



Pil 



15-1 



/CENTER AGAIN, 



07456 7800 070000, 7000 
87457 6762 NINTECOF, INTCCOF 



07460 


4477 


UUNOAOi 


JMS I 


PERRON 


07461 


161T 




TEXT 


»N0 A»0» 


07462 


4081 








07463 


5504 








87464 


0000 








07465 


0800 


CCINTK, 







97466 


6131 




6131 




07467 


5669 




JHP I 


CCINTK 


07470 


6213 




CIP CDF 


10 


07471 


5672 




JMP I 


.♦I 


87472 


0175 




CLOCKI 





7473 
7473 



KEAUTI*. 
SETRATa. 



/*Wfz.m 



FA1.4.VT 



P»(S^ 



S-2 





7tt75 


SCrCLO*. 




T47J 


W*1TC«, 




7473 


w»IT«, 




7«73 


REJECT", 




7tt73 


ACCEPT*. 


87*73 


1450 


TAD I MORO 


07tt74 


6211 


CDF CIF 10 


«7475 


Sfc76 


JMP 1 .♦! 


8747* 


8731 


UPCOMOO 





7477 


T1M«, 






7477 


CLf, 






7477 


CLl>«. 






7477 


*DC«. 






7477 


AOB«. 




87477 


0000 







07500 


143» 


TAO I 


PDt 


07501 


6211 


CIF CDF 


10 


07502 


4704 


JM8 I 


.♦2 


07505 


56TT 


JMP I 


ADB 


07504 


0747 


UPFUN 





/RECALU CORRECT FUNCTION NUMBER (IT'S ON THE STACK) 



7417 



ENPUNCH 

IFZERO MACHINE* 

•NULJ0B«2» 



87417 5762 T8TFX, BEGFIX 



87420 0008 NDELAV, 



a7«2i 


aees 


B7422 


4617 


87423 


6201 


07424 


U31 


e7429 


62U 


0742* 


3016 


07427 


4946 


07430 


5621 







P4L8.V7 









JM8 


1 


T8TPX 


COF 







T*0 


I 


T8TP 


cor 




10 


OCA 




ACS 


JMS 


I 


PANORM 


JMP 


I 


T$T 



aI^I 



C,L«E P*L8»V7 PAl^l5-3 

T8T. 



07431 7255 TSTPi INCMAR 



0001 PXEUD 1 



tC.LflE 



i»»Le-v? 



t5-tt 



0000 



12200 


2045 


TEN, 


2045100 


10001 


0000 






10002 


0000 






10003 


0000 


CI.KST8, 





10004 


0000 


TIMl, 





t?^05 


0000 


T1M2, 





10006 


0000 


AB06ET, 





1000? 


0000 


AOACPT, 





10010 


0000 


AOCUNT, 





10011 


0000 


CUTEMP, 





10012 


0000 


AOCXi 





10013 


0100 


U100, 


100 


10014 


0000 


CT3, 





10015 


0000 


CT2, 





10016 


0000 


CTl, 





10017 


0177 


U177, 


177 


10020 


4707 


U4707, 


4707 


10021 


7775 


U777S, 


7775 


10022 


0000 


ACOUNTi 





10023 


0000 


APUTl, 





10024 


0000 


A^uta, 





1002S 


0000 


AOAl, 





10026 


0000 


ADA2, 





10027 


0000 


ADAS, 





10030 


0550 


UUSETPi 


USETF 


10031 


0673 


UMEVAL* 


UUMEVAL 


10032 


0677 


UPFIX, 


UUPPIX 


10033 


0007 


U7, 


7 


10034 


5010 


U5010, 


5010 


1003S 


7767 


U7767, 


7767 


10036 


0010 


U10« 


10 


10037 


0654 


UACl, 


UUACl 


10040 


0661 


UAC2« 


UUAC2 


10041 


0666 


UAC3, 


UUAC3 


10042 


0020 


PPACl, 


ACl 


10043 


0017 


PPAC2* 


AC2 


10044 


0016 


PPACS, 


ACS 


10049 


0025 


PPACe# 


ACE 


10046 


0024 


PPACSi 


ACS 


10047 


0017 


U17, 


17 


10250 


7777 


U7777, 


7777 


10051 


0362 


UOOAOi 


OOAD 


10052 


7760 


UTT60. 


7760 


10053 


0000 


UTIMP, 






/INSERTED IN UPPER CORE BECAUSE OF FEEBIUITV. 



/Vc 


.t»t 




^*Le»VT 


leasa 


9722 


ujnp, 


UUJMP 


10053 


erer 


0JM8> 


UUJMS 


leesfr 


e7B5 


uocvcoN 


lUUDEVCON 


izasT 


6zee 


UGETwO, 


6000 


tez60 


4«$5 




JMS X UJMS 


leeftt 


eiTT 




GETWD 


ie0fc2 


545T 




JMP I U6ETM0 



15-5 



10061 0000 AUTEMP, 
1006« 7767 ADCCOfti -11 



/ABOUT 512 FOR PUOGE. 



82e« 



PAGE 



0179 



*,-3 



10179 61S9 CLOCKIi ktS9 

10176 300S OCA CUKSTS 

10177 2005 !iZ T1M2 

10200 520S JMP .*3 

10201 200« lit TIMl 

10202 7000 NO^ 

10203 1006 TAD ABD6ET 



10204 7790 



•PA SNA CLA 



/CLEAR CLOCK PI.A6, 
/AND SAVE STATUS. 
/INCREMENT CLOCK. 



/IS REAL TIME ORTION RUNNING? 



ic.Lse 



?A|.8-V7 



^m 



1S>6 



leaps 


S234 


JMp 


UIEXT 


10206 


1007 


TAO 


AOACPT 


ia20T 


7650 


SNA CLA 




leaia 


5234 


JMP 


UIEXT 


10211 


1010 


TAO 


AOCUNT 


10212 


3011 


DCA 


CLTEMP 


10213 


1012 


TAD 


AOCX 


10214 


6531 


6531 




10219 


1013 


TAD 


U100 


1021* 


6536 


6536 




10217 


4451 


UCLOOP, JMS I 


UOOAO 


10220 


4263 


JH8 


APUT 


10221 


2011 


ISZ 


CLTEMP 


10222 


5217 


JMP 


UCLOOP 


10223 


2014 


ISZ 


CT3 


10224 


5234 


J MP 


UIEXT 


10225 


2015 


ISZ 


CT2 


10226 


5234 


JMP 


UIEXT 


10227 


2016 


I8Z 


CTl 


10230 


5234 


J^« 


UIEXT 


10231 


7240 


C.A CMA 




10232 


3006 


OCA 


AB06ET 


10233 


3007 


DCA 


AOACPT 


10234 


6031 


UlEXTi 6031 




10235 


5243 


JMP 


UIEXT2 


10236 


6034 


6034 




10237 


0017 


AND 


U177 


10240 


1021 


TAO 


U7775 


10241 


7650 


SNA CLA 




10242 


S249 


JMP 


UIEXT3 


10243 


6131 


UIEXT2, 6131 




10244 


5260 


JMP 


UIEXT4 


10245 


1020 


UIEXT3, TAO 


U4707 


10246 


6132 


6132 




10247 


6135 


6135 




10250 


6138 


6130 




102S1 


7240 


CLA CMA 




10252 


6130 


61S0 




10253 


6032 


6032 




10254 


3006 


DCA . 


ABOCET 


10255 


5007 


OCA 


AOACPT 


10256 


4454 


JMS I 


UJMP 


10257 


7373 


RTERR 




10260 


6203 


U1IXT4, CIP COP 





10261 


5662 


JMP I 


.♦1 


10262 


6744 


INTEXT 





/NOPE. 

/IT SOf ARE WE NOW ACCEPTING DATA? 

/NOPE. 

/YEP. GET NUMBER OF CHANNELS TO 00. 

/SET UP OUR COUNTER, 

/GET STARTING CHANNEL NUMBER, 

/SEND TO TO CONTROLLER. 

/TELL IT TO INCREMENT MULTIPLEXOR WHEN DONE, 



/PREFORM AiO INSTRUCTION. 

/STORE IN USERS BUFFER, 

/ALL 00NE7 

/NOPE, WAIT,. 

/DONE, INCREMENT TOTAL NUMBER OF SAMPLES, 



/ALL DONE, STOP SAMPLING, 
/AND 60 INTO "REJECT* MODE. 



/HAS HE TYPED A CONTROL CT 
/NO. 



/*Ct 

/YESt BOMB HIM, 

/CLOCK MAS NOT COME UP AGAIN. ALL IS WELL. 
/STOP CLOCK IMHIAOIATATELY. 



/CLEAR ALL AFTER PARTIAL ENABLE. 

/CLEAT TTY FLAB, 

/FREE BUFFER AND ACCEPT MODE, 



/INTERUPT EXIT, 

/AND DO WHATEVER 600 INTENDED. 



ipsic 


.L6E 




PAt8-V7 


102b3 


0000 APUT, 




10260 


3423 


OCA I 


APUTl 


t02l»5 


iiii 


ISZ 


ACOUNT 


idihb 


4325 


JM8 


ABOP 


iZihl 


0023 


APUTl 




10270 


1023 


TAD 


APUTl 


10271 


7041 


CIA 




10272 


1024 


TAO 


APUT2 


10273 


7640 


SZA CLA 




10274 


5663 


JMP 1 


APUT 


10275 


3006 


OCA 


AB06ET 


10276 


3007 


OCA 


ADACPT 


10277 


4454 


JM» 1 


UJMP 


10300 


7567 


UUOATA 




10301 


0000 A6ET, 




10302 


7240 


CLA CMA 




10303 


1022 


TAO 


ACOUNT 


10304 


7500 


SI'/, 




1030S 


S312 


J If 


.♦5 


10306 


7200 


CLA 




10307 


44SS 


JMS I 


UJMS 


10310 


6713 


BXDLE 




10311 


5302 


JMP 


A6ET*1 


10312 


3022 


OCA 


ACOUNT 


10313 


1424 


TAD I 


AFUT2 


10S14 


3323 


OCA 


ATEMP 


1031S 


6002 


lOF 





15-7 

/THIS ROUTINE PUTS A SAMPLE IN THE BUFFER. 
yPCACE IN euFFER. 
/INCREMENT COUNTER, 
/BOP UP POINTER, 

/GET INPUT POINTER, 

/DOES IT MATCH OUTPUT POINTER? 

/NOPE, ALL IS WELL. 
/FREE BUFFER, 
/AND ACCEPT, 
/GIVE ERROR, 
/A-0 ERROR. 

/THIS GETS A DATA ITEM FROM BUFFER, 
/DECREMENT COUNTER. 

/OR SHOULD WET 

/YEP, STILL ITEMS LEFT, 

/PUT TO SLEEP 

/AND CHECK AGAIN WHEN AWAKE, 

/SAVE COUNTER. 

/GET THE SAMPLE, 

/SAVE WHILE UPDATE TAKES PLACE, 



^R 



ic.tet 



P4L8-V7 



pW 



PBZt ih 



10516 


• 329 




JMS 




ABOP 


lesiT 


e024 




*PUT2 




itiii 


6001 




ION 






1CI21 


1323 




TAD 




ATEMP 


10322 


5701 




JMP 


I 


ASET 


te32S 


0000 


*TEMP, 









10324 


0000 


ATEMP2, 









10325 


0800 


ABOP, 









10326 


1725 




TAD 


I 


ABOP 


ie32T 


1324 




OCA 




ATEMP2 


10338 


1724 




TAD 


I 


ATEMP2 


10331 


2325 




ISZ 




ABOP 


10332 


102S 




TAD 




ADAl 


10333 


7450 




SNA 






10334 


1026 




TAD 




ADA2 


10335 


1027 




T*D 




ADAS 


1C336 


3724 




D' ;» 


I 


ATEMP2 


10337 


5725 




j.<p 


I 


ABOP 


10340 


0000 


UCL8, 









10341 


1003 




TAO 




CLKSTS 


10342 


4430 




JHS 


1 


UUSETF 


10343 


0000 




8 






18344 


5740 




JMP 


I 


UCLS 


18345 


8800 


UCLCi 









10346 


6137 




6131 


t 




10347 


4438 




JMS 


I 


UUSETP 


10358 


0808 











183St 


5745 




JMP 


I 


UCLC 



/ABOP WlUl. P— K YOU UP IF CALLED RE-ENTRENTLY, 



/SAVE POINTER NOW, 

/GET VALUE AND SKIP PAST POINTER il. 
/TEST AGAINST UPPER. 

/CORRECT TO LOWER. 
/AND ADD IN UPPER, 
/AND THEN SAVE AWAY, 
/AND THEN EXIT. 



/GETS STATUS APTER LAST CLOCK XNTERUPT, 



/RETURN WHEN DONE, 



/READS IN AS A CLCA 
/GET COUNT REGISTER, 

/FIX IT UP, 
/AND RETURN NOW, 



10352 

10353 



0888 UUULLLi 
7208 CLA 



^ic.Lte 



^•ue-vT 



tfe*i 



ie3s« 


3022 




OCA 


ACOUNT 


ie355 


3006 




OCA 


AB06ET 


1Z356 


3087 




DCA 


AOACPT 


1235T 


6801 




ION 




ies(>0 


6202 




CIF 





te36i 


5752 




JMP I 


UUULUL 


10362 


0000 


OOAD, 







103(13 


1052 




TAO 


U7760 


10364 


3375 




DCA 


DSCREM 


10365 


6532 




6532 




10366 


6534 


OOAOLP, 


6534 




10367 


7410 




SKP 




10370 


5373 




J MP 


.♦3 


10371 


2375 




ISZ 


OSCRCM 


10372 


5366 




JMP 


DOAOLP 


10373 


6533 




6533 




10374 


5762 




JMP I 


DOAD 


10375 


0000 


OSCAEW, 








/PUCNTY OF DELAY 

/SAVE IN A COUNTER WORD. 

/START CONVERSION, 

/WAIT UNTIL DONE. 

/IF NOT DONE, WAIT SOME. 

/IF DONE, READ IT IN. 

/MAIT UNTIL DONE OR TOO LONG. 
/THEN READ IN THE CONVERTED NUMBER. 
/AND RETURN, 



0400 



PAGE 



)ic.t«e 



PALd-V7 



16-2 



iztte0 


«a57 USETR, JM8 




U6ETN0 


18081 


443t 


JMS 


I 


UMEVAL 


ip«a2 


a«32 


JMS 


I 


UCFIX 


i8«e3 


0033 


AND 




U7 


laaaa 


7106 


CLL 


RTL 




10405 


7006 


RTL 






I0a0« 


7006 


HTL 






10407 


1034 


TAD 




U5010 


10410 


5216 


JMP 




U8ETM 


10411 


4057 U9ETC, JN8 




UGETMO 


10412 


4431 


JliS 


I 


UMEVAL 


10413 


4432 


J^«S 


I 


UPFIX 


10414 


0035 


Arc 




07767 


10419 


1036 


T-D 




U10 


10416 


3053 USETMf OCA 




UTEMP 


1041T 


7240 


CUA 


CMA 




10420 


6130 


6130 


1 




10421 


7200 


CIA 






10422 


4431 


JH5 


I 


UMEVAL 


10423 


4432 


JM8 


I 


UPFIX 


10424 


7041 


CIA 






1042S 


6002 


lOF 






10426 


6133 


6133 


i 




10427 


7200 


CUA 






10450 


3004 


DCA 




TIMl 


10431 


3005 


OCA 




TIMa 


10432 


1053 


TAD 




UTEMP 


10433 


6132 


6132 


1 




10434 


6001 


ION 






10435 


7200 


CLA 






10436 


5456 


JMP 


I 


UOEVCON 



/BOP PAST CHAR. 

/THI8 ROUTINE 8ET8 UP CLOCK TO A GIVEN TINE. 

/FIX UP AC, 

/JU«T GET SIGNIFICANT BITS (0-7) , 

/NOW MOVE TO TIME PORTION (3-5) 



/SET OTHER CORRECT BITS NOM. 



/BOP PAST BAD POINTER, 

/THIS ROUTINE LOADS CLOCK WITH USERS COMMAND REGISTER. 



/MAKE SURE TO TURN IN'ERUPTS ON, 



/SAVE ENABLE REGISTER FOR A SECOND, 
/CLEAR CLOCK NOM, 

/SO WE CAN LOAD IN CORRECT STUFF, 
/EVALUATE HIS TIME SETTING. 



/MAKE SURE INTERUPTS ARE OFF, 



/CLEAR OUT THE TIM NOW. 

/RECALL DESIRED ENABLE REGISTER, 

/SEND IT OUT, 

/TURN ON INTERUPTS NOW, 

/AND EXIT NOW, 



10437 7240 UWAIT> CLA CMA 



10440 


1005 


UWAITC, 


TAD 


TIM2 


10441 


30SS 




DCA 


UTEMP 


10442 


44SS 




JM8 I 


UJM8 


10443 


6713 




BIOLE 




10444 


1053 




TAD 


UTEMP 


10445 


7041 




CIA 




10446 


100S 




TAD 


TIMS 


10447 


7650 




SNA CLA 




10450 


5241 




JMP 


UWAITC*2 


104S1 


4454 


RANOAE, 


JMS I 


UJMP 



/WAITS FOR AN INTERUPT, SET TO LOOK LIKE CLOCK DID IT. 

/GET LOW ORDER WORD. 
/SAVE FOR AWHILE, 

/PUT TO SLEEP, 

/WAS IT CLOCK (OR OTHER IF CLOCK FUDGEDT) 

/COMPARE AGAINST PRESENT CLOCK, 

/NOT CORRECT. WAIT SOME MORE. 



teas? T1T5 



OEVCOM 



PAL8-V7 



16-3 



1C45S 1036 UACCPT, TAD ABOGET 

ie«S4 7740 SZA SM* CLA 

ie«SS 7201 CLA lAC 

10456 3007 UREjr, OCA ADACPT 

12457 5251 JMP RANOAE 



/IS BUFFER A9SI6NE0T 

/YEP. ME CAN ACCEPT NON, 

/OR REJECT. 
/AND THEN EXIT, 



/REAL TIME DECODING FUNCTION, 



!e«60 


1007 UREAL, TAD 




ADACPT 


12«6t 


7650 


SNA 


CLA 




18462 


5265 


JMP 




.♦3 


10463 


4454 


JM8 


I 


UJMP 


10464 


0467 


SKTPIT 




18465 


4455 


J iti 


I 


UJMS 


10466 


74b2 


GETARV 




1046T 


4437 


JM8 


I 


UACl 


10470 


3023 


DCA 




APUTi 


10471 


1023 


TAD 




APUTl 


10472 


3024 


OCA 




APUT2 


10473 


4440 


JM8 


I 


UAC2 


10474 


7041 


CIA 






10475 


3025 


DCA 




ADAl 


10476 


4440 


JMS 


I 


UAC2 


10477 


7001 


lAC 






10S00 


3027 


DCA 




ADAS 


10S01 


1027 


TAD 




A0A3 


18502 


7041 


CIA 






10503 


1023 


TAD 




APUTl 


10S04 


3026 


DCA 




A0A2 


10505 


4057 


JH8 




USETNO 


10506 


4431 


JM8 


I 


UMEVAL 


10507 


4432 


JM8 


I 


UPFIK 


11510 


0047 


AND 




U17 


10511 


3012 


OCA 




ADCX 


10512 


4431 


JM8 


I 


UMEVAL 


10513 


4432 


JM8 


I 


UPFIX 


10514 


7440 


SZA 






10515 


1050 


TAD 




UT7TT 


10516 


0047 


AND 




yi7 


10517 


7048 


CMA 






10528 


3010 


DCA 




ADCUNT 


10521 


4431 


JMS 


I 


UMEVAL 


10522 


4432 


JM8 


I 


UPFIX 


10523 


7161 


CLL 


CML 


CIA 


10524 


3014 


DCA 




CTl 


10525 


7004 


RAL 






12526 


4448 


JM8 


I 


UACi 



/ARE ME ACCEPTING NOWY 



/PICK UP BUFFER ITEMS. 

/GET WE FIRST MORD OF ARRAY. 

/SAVE ANAY NOM. 

/ALSO SET UP OUTPUT POINTER. 

/GET LAST MORD OF ARRAY, 

/SAVE IN UPPER LIMIT TESTER, 

/GET AGAIN, 

/ADD ONE. 

/AND SAVE AWAY IN BOPPER WORD, 

/FINALLY GET THE RESET WORD. 



/AND SAVE AWAY FOR WRAP AROUND CONDITION, 

/BYPASS REAL TIME STATEMENT. 

/EVALUATE AN EXPRESSION 

/FIX THE AC NOW, 

/JUST GET CHANNEL NUMBER, 

/SAVE AWAY, 

/EVALUATE ANOTHER ITEM, 

/FIX IT UP, 

/IF ZEROi DO NOT SUBTRACT ONE. 

/SUBTRACT ONE TO BRING INTO 8-17 RANGE. 

/MAKE INTO 0«17. 

/NOW NEGATE AND SUBTRACT ONE. 

/AND SAVE AWAY CORRECT I8Z COUNTER. 

/NOW GET NUMBER OF SAMPLES (CLOCK TICKS) 



/SET UP LOW ORDER WORD OF COUNTER. 
/AND PRESERVE CARRY. 



.'•fl 



tC.LBE 



^»L«»V7 



PAST J6-4 



13527 


7161 


CLL CMt 


CIA 


■.35 3a 


3315 


OCA 


CT2 


13531 


TZZi 


«»!. 




•.C532 


«u37 


JMS I 


UACl 


.3533 


T161 


CtL CML 


CIA 


1353« 


3016 


OCA 


CTl 


13535 


3322 


OCA 


ACOUNT 


13536 


7201 


CLA XAC 




ia53T 


3306 


OCA 


ABD6ET 


10540 


Sa56 


JUP I 


UOEVCON 



/CLEAR PRESENT SUFFER COUNTER. 
/SET UP BUFFER, 



135*1 


0000 UTIM, 




13542 


1004 


TAO 


TIHl 


13543 


3346 


OCA 


,♦3 


13544 


1005 


TAD 


TIM2 


13545 


4430 


JM8 I 


UU8ETF 


13546 


0000 







13347 


5741 


JMF I 


UTIM 


10550 


0000 USCTF, 




10S51 


3053 


OCA 


UTEMP 


10552 


4455 


JfIS I 


UJHS 


10553 


3762 


eecFxx 




10554 


1750 


TAD J 


U8ETF 


10555 


6201 


COF 





10556 


3443 


OCA I 


PPACa 


1055T 


1053 


TAO 


UTEHP 


ia560 


3444 


OCA I 


PPAC3 


10561 


62U 


COF 


10 


10562 


4455 


JN8 I 


UJMS 


13563 


4600 


ANORM 




10564 


2350 


I5Z 


U8ETF 


10565 


57S0 


JMP I 


U8ETF 



/RETURNS CLOCK TICK, 



/SAVE LOW ORDER WORD OF FAC. 

/PREPARE TO INTERexZE IT. 
/GET MIDDLE WORD. 

/PLACE IN FAC. 
/GET LOW WORD. 
/PLACE IN FAC. 



/BYPASS VALUE 
/RETURN NOW, 



0600 



PAGE 



kIC.LAE 



P*L»-VT 



Ib-S 



izbzz 0eee uaocb, 

lebez 5222 

10603 100fc 

i0fcea 7450 

10605 5220 

10606 7710 

10607 S21S 
10610 1007 





iPk CLA 

JMP UAOCN 

TAO ABDBET 

SNA 

JMP UABAD 

SPA CLA 

JMP UAOCHV 

TAO ADACPT 



/THIS RETURNS A VALUE FROM THE A-0. 

/BUFFERED OR OIRECTt 

/DIRECT, 

/CHECK TO SEE WHETHER BUFFER A8S6INE0. 

/NO BUFFER ASSIGNED, 

/IS BUFFER ACTIVE? 

/NO, GET COUNT, 

/ACTIVE. ARE WE ACCEPTING DATAT 



iic.ise 



l»ALfl-V7 



17 



U611 


T650 




9NA 


CLA 




10612 


5215 




JMP 




UADCMY 


10^13 


a653 


U4DCIN, 


JMS 


I 


UPA6E7 


ie*i« 


5231 




JMP 




UINAC 


leftiS 


1022 


UADCMV, 


T*0 




ACOUNT 


10616 


7640 




SZA 


CLA 




IBblT 


5213 




JMP 




UAOCIN 


10620 


4454 


U4BA0, 


JMS 


I 


UJMP 


10621 


7460 




UUNOAO 




10622 


4432 


UAOCN, 


JMS 


I 


UPPIX 


10623 


0047 




AND 




U17 


10624 


6002 




lOF 






10625 


6531 




6531 






10626 


6536 




653« 


1 




10627 


4451 




JMS 


I 


UOOAD 


10630 


6001 




ICN 






10631 


3063 


UlNACi 


OUA 




AUTEMP 


10632 


1063 




TAD 




AUTEMP 


10633 


7510 




SPA 






10634 


7041 




CIA 






1063S 


4430 




JMS 


I 


UUSCTP 


10636 


0000 











10637 


1063 




TAO 




AUTEMP 


10640 


6201 




CDF 







10641 


771B 




SPA 


CLA 




10642 


7350 




CLA 


CLL 


CML PAR 


10643 


3446 




OCA 


I 


PPACS 


10644 


1445 




7A0 


I 


PPACE 


10645 


1064 




7A0 




AOCCOR 


10646 


7500 




SHA 






10647 


3445 




OCA 


I 


PPACE 


10650 


7200 




CLA 






10651 


6211 




COP 




10 


10652 


5600 




JMP 


I 


UADCB 



/NO. CHECK COUNT IN BUFFER. 

/GET VALUE FROM A-0 BUFFER, 
/AND FIX IT UP, 

/GET BUFFER COUNTER NOM. 
/■Bt 

/NOPE. ME CAN RETURN SOME DATA, 

/NO A-0 DATA IN BUFFER. HE'S F<—KEO. 



/NON«REAL TIME, 

/JUST GET CHANNEL NUMBER, 

/we CANNOT BE INTEHUPTTEO HERE, 



/PREFORM THE CONVERSION N0i4. 
/RESTORE INTERUPTS, 

/SAVE FOR A SECOND. 

/PLACE ABSOLUTE VALUE IN FAC. 



/NOM SET SIGN OF FAC, 

/SET TO PICK UP FIELD 0, NO COOLNESS LEFT, OESPITI COMMENTS, 

/IF P08ITVE LEAVE ALONE. 

/SET LEFT MOST BIT ON TO INDICATE NEGATIVE. 

/GET EXPONENT NOM. 

/BRING INTO CORRECT RANGE NOM, 

/IF TOO FAR, 

/DON'T CORRECT. 

/RESET CDF, 

/RETURN TO FIELD ONE (COOL ,U6H1) 



10653 0301 UPA6ET, AGET 



10654 


2000 


UUACl, 







10655 


6201 




CDF 





10656 


iaa2 




TAO I 


PPACl 


1B657 


6211 




CDF 


10 


10660 


5654 




JMP 1 


UUACl 



10661 2000 UUAC2( 
106(>2 6801 CDF 



ic.iae 



IPtibS 


ia«3 


jefcfeo 


6211 


IBbfeS 


5661 


10666 


0000 


10667 


6201 


10670 


10«a 


10671 


6211 


10672 


S666 



UUAC3, 





p*ue-v7 


TAO I 

COF 

JMP I 


FFAC2 

10 

UUAC2 




CDF 
TAO I 
CDF 
JMP I 




FPAC3 

10 

UUAC3 



17-1 



10673 0000 UUMEVAL«0 

1067a 4ttSS JMS I UJMS 

10675 7419 HEVAt 

10676 5673 JMP I UUMtVAL 

10677 0000 UUPFIX, 

10700 aaSS JM8 I UJMS 

10701 «7a« Fit 

10702 7200 CL* 

10703 «««! J»S I UACS 
1070a 5677 JMP I UUPFIX 



10709 449a UUDCVCi JM8 I UJMP 
10706 7176 DEVCON 



10707 0000 UUJMSi Z 



10710 


6202 


CXF 





10711 


170T 


TAD I 


UUJM8 


10712 


33ia 


OCA 


.*2 


1071S 


4721 


JM$ X 


UUUJM8 


10714 


0000 







10715 


7410 


SKP 




10716 


2307 


I8Z 


UUJM8 


10717 


2307 


isz 


UUJM8 


10720 


5707 


JHP I 


UUJM8 



/IN CA8E OF SKIPPING RETURN 



10721 7446 UUUJMS, llLJMS 



/sWiCLBt 



^*L»-VT 



PAC 



lT-2 



10722 e^^ee uujmp, 



18723 


6222 


cir 


lit 


1«72« 


1722 


TAO I 


UUJMP 


10785 


3327 


OCA 


,*i 


iZlih 


arse 


JH8 X 


UUUJMP 


1B72T 


eeee 








je738 7457 UUUJMP, LULJMP 



10731 1335 UPCOMOO.TAD 

10732 133* TAO 

10733 3334 DCA 

10734 7403 HUT 

10735 1740 UUFU06E*-fce4e 

10736 5737 UPJMPi JMP 1 

10737 0460 UREAL 

10740 0400 USETR 

10741 0411 U8ETC 

10742 0440 UWAITC 

10743 0«S7 UWAIT 
laTaa 0000 0000 

10745 0453 UACCPT 

10746 0456 UftEJT 



UUFUD6E 

UPJMP 

.♦I 



.♦I 



/NOT USED NOM. 



10747 


0000 


UPFUNi 







10750 


1356 




TAD 


UPFUD 


10751 


1357 




TAO 


UFJMP 


10752 


3353 




DCA 


.♦1 


10753 


7402 




MLT 




10754 


6202 




c:f 





10755 


S747 




JMP X 


UPFUN 


10756 


7757 


UFFUDf 


-21 




10757 


4760 


UPJMP, 


JM8 I 


• ♦1 


10760 


0770 




ZZADC 




10761 


0000 




0000 




10762 


0541 




UT|M 





.8c ^«La*v7 PAsVPr-s 



JTt-3 


?!?a0 




0000 




?T.a 


seee 




0000 




.'7»* 


25aa 




UCLS 




.27-K 


?lt.5 




UCLC 




jTsT 


3775 




ZZAOB 




.ZT7J 


eaee 


ZZADC» 







•.?T71 


72Ae 




CU* CHA 




.f.TTl 


«77fl 




JM8 1 


.*2 


.ZTM 


5778 




JMP 1 


ZZAOC 


: 2774 


2«ee 




UADCB 




'7775 


seiee 


ZZ*08, 







;ZTT* 


4774 




JMS I 


ZZAOB-t 


:2T77 


5775 




JMP 1 


ZZADB 



1000 PAGE 



/«! 



rc,t»E 



^*L«-VT 



Pkt 



ir-« 



IFZERO MACHINE* 

0003 LIMIT»TEN*3 

» 

IfNZRO MACHINE* 

LIMIT, 

> 



7022 



17022 


0000 


17023 


4200 


1702a 


5300 


1702S 


4201 


17026 


5500 


17027 


4302 


17030 


5200 


17031 


4303 


17032 


5700 


17033 


4404 


17034 


3600 


17035 


4110 


1703fc 


7475 


1703T 


0000 


17040 


4111 


17041 


7675 


17042 


0000 


17043 


4112 


17044 


7476 


17045 


0000 


17046 


4111 



• 7022 

PERMSYM,0 

XKPLU8, 4200|TE)(T *** 

)(XMINU8,4201ITEXT ••» 

XXSTARi 4302>TEXT *•♦ 

XXSLASH,4S03»TEXT •/♦ 

XXUPARR,4404»TEXT »*• 

XXLE, 4U0ITEXT »<•* 

XX6E, «lli»TIXT ♦»•* 

XXNE, 4112ITIXT '«>♦ 

XXEO, 4lll>TtXT ♦•»* 



rc,u«€ 



»*L6-vr 



•l7-5 



17350 
IT 291 

17255 

I7a5« 

1T355 

1709* 

1705T 

17060 

17061 

17062 

17063 

17064 

17061 

17066 

1706T 

17070 

17071 

17072 

17073 

17074 

17078 

17076 

17077 

17100 

17101 

17102 

171C3 

17104 

17105 

1710* 

17107 

17110 

17111 

17112 

17113 

17114 

17115 

17116 

17117 

17120 

17121 

17122 

17123 

17124 

17125 

17126 

17127 

17130 

17131 

17132 

17133 

17134 

17135 



7576 

0000 
0110 
7574 
0000 
4105 
7500 
4106 
7400 
4107 
7600 
4015 
5400 
4016 
7300 
4017 
5100 
4017 
3500 
4021 
4024 
1740 

0000 

4022 

4023 
2405 

2040 
0000 
4023 
5000 
4023 
3300 
4024 
0616 
0000 
4025 
0317 
2300 
4026 
2401 
1600 
4027 
0124 
1600 
4030 
1417 
0700 
4031 
0530 
2000 
4032 
2321 
2200 
4033 
0102 



XXtL, 4110ITEXT '•«» 

tUQ, 4105ITEXT »•» 

XXLT, 4106|TE)(T '<♦ 

XXGT, 4107>TEXT '»' 

XXCOMMA,4015»TCJ(T ',* 

XXSEMI, 4016ITEXT 'I* 

XXCLO8E,4017>TEXT •)♦ 

XXRBRAK,4017)TEXT ') ' 

XXTO. 402UTEXT » TO * 

XX8TEP, 4022JTEXT » STEP • 

XXOPEN, 4023>TEXT H* 
XXLBRAK,4023>TEXT ' t' 
XXFN, 4024»TEXT *PU» 

XXC08, 4025ITEXT •COS* 

XXTAN, 4026ITEXT *TAN» 

XXATN, 4027»TEXT 'ATN* 

XXLOG» 4030fTEXT ♦(.08* 

XXeXP, 403WTEXT 'EXP* 

XXSQP# 4032ITEXT «80P' 

XXABSi 4033rTEXT *ABS' 



iic,u«e 



17136 


2SiS0 


insr 


a03a 


i7i«e 


2387 


iTlftJ 


ifeza 


17102 


0235 


17U3 


1116 


J7ia« 


24e0 


171U5 


a936 


1TU6 


2216 


irioT 


eoea 


17150 


4837 


17151 


2311 


17152 


1600 


17155 


4040 


17158 


2025 


17155 


2400 


17156 


40ai 


17157 


1411 


1716B 


2324 


17161 


0000 


171#.2 


aeai 


17169 


1411 


1716« 


2300 


17165 


4042 


IT166 


222S 


17167 


1600 


1717B 


4043 


17171 


2303 


17172 


2200 


17173 


4044 


1717« 


0705 


17175 


2400 


17176 


4845 


1717T 


0104 


17200 


0300 


17201 


4046 


17202 


2423 


17203 


2400 


1720« 


4047 


17205 


2411 


17206 


1500 


17207 


4050 


17210 


2401 


172U 


0200 


17212 


4051 


17213 


2525 


17214 


0600 


17215 


4052 


17216 


0314 


17217 


2300 


17220 


4053 


17221 


0314 


17222 


0300 


17223 


4054 


17224 


0104 



XXSGN, 4e34|TEXT 



XXINT, «035»TEXT 



XXRNO, a036irEXT 



XX8IN, 4037;TEXT 



XXPUT, 4040rTE)IT 



XXLIST, 404UTEXT 



XXLI8, aPflUTEXT 



XXRUNr 4042ITEXT 



XXaCRi 4043;TEXT 



XXGCT, 4044ITEXT 



XXADC, 4045;TEXT 



XXTTY, 4046fTEXT 



XXTIME, 4047;TEXT 



XXTAB, 4050;TEXT 



XXUUr* 40S1ITEXT 



XXCLSi 4052fTEXT 



XXCLC, 405SITEXT 



XXAOBi 40S4ITEXT 



PAL8-V7 


'8GN* 


'IKT' 


»RNO* 


♦SIN* 


»PUT* 


•LIST" 


'LIS' 


»RUN* 


»SCR» 


*GET» 


♦AOC* 


'T8T» 


•TIM* 


'T*B» 


•UUF* 


»CL8» 


*CLC» 


'ADB* 



17*6 



MiC.LSC 



^*L»-V7 



lT-7 



1T825 


0200 


IT2J6 


6000 


17287 


3700 


t725a 


6000 


17251 


3400 


17232 


6001 


17233 


0516 


17234 


0400 


1T835 


6002 


1723b 


0617 


1723? 


2240 


i72«e 


0000 


I72ai 


6003 


I72a2 


0717 


172«3 


2325 


I72a« 


0240 


17245 


0000 


17246 


6004 


17247 


0717 


1725B 


4024 


17251 


1740 


17252 


0000 


17253 


6004 


17254 


4024 


17255 


1005 


17256 


1640 


17257 


0000 


17260 


600S 


17261 


1106 


17268 


4000 


17263 


6006 


17264 


1116 


17265 


2025 


17266 


2440 


17267 


0000 


17270 


6007 


17271 


1405 


17272 


2440 


17273 


0000 


17274 


6010 


17275 


1609 


17276 


3024 


17277 


4000 


17300 


6011 


17301 


2022 


17302 


1116 


17303 


2440 


17304 


0000 


17305 


6012 


17306 


2205 


17307 


242S 


17310 


2216 


17311 


0000 


17312 


6013 


1731J 


2324 



XKCI^L^f 6000>TEXT '^' 
XXB8LSH,fc000jTEXT *\' 
XXENO, 600UTEXT 'CNO* 

XXFORi 6002ITEXT 'FOB ' 
XXSOSUB,6003frEXT '609UB * 

XX6070, 6004|TEXr 'GO TO * 

XXTHEN, 600«fTEXT » THEN » 

XXIF, 6005ITEXT 'IF • 
XXINPUT,6006>TEXT »INPUT • 

XXLETi 6007ITEXT 'LET • 
XXNEXT, 6010ITEXT 'NEXT • 
XXPRINT,60U>TEXT 'PRINT ' 

XXHETI»N,6012>TEXT 'RETURN' 

XX8T0P, 6013ITEXT 'STOP* 



ilC.LSE 



P*Le-V7 



'iw 



i7-e 



17J14 
ITSIS 

1731» 

IT322 
17323 
I7 32fl 
175^5 
17326 
17327 
1733B 
17331 
17332 
17333 
17334 
17335 
1733* 
17337 
I73<4e 
J73«l 
173«2 
173«3 
t7S«« 
17S«S 
173A6 

17347 
t73SB 
17551 
17352 
17353 
1735« 
17355 
17356 
17357 
17363 
17361 
17362 
17363 
17364 
17365 
17366 
1T367 
17179 
17371 

17372 
17373 
17374 
17S75 
17376 
17377 
17480 



1720 
6214 

i5«e 
e2ee 

6215 
22i)5 
2324 
1722 

6016 

22es 

1540 



6017 

^405 

0640 
0008 

6020 

€!20S 

0104 
4800 
6821 
0401 
2401 
4000 

6824 
2424 
3148 
1116 
0080 
6025 
2424 
3140 
1728 
2400 
6026 
1428 

2400 

6027 
2024 
2008 
6030 
2024 
2200 

6032 
2225 

8217 
2524 

2300 
6033 

1617 



XXOIH, 6014»TEXT 'DIM » 



XXRST0R.6Bl5HtXT 'Re$70RE* 



XXREM, 6016>TtXT 'R6M * 



XXDEF, 6017!TEXT *DiP * 



XXREAO, 6K20ITEXT 'READ • 



XXOATAi 602UTEXT 'DATA • 



XXTTVI, 6024ITEXT »TTY XN» 



XXTTYO, 6025ITEXT 'TTY OUT' 



XXUPT, 6026ITEXT 'LPT* 



XXPTP, 6027ITEXT 'PTP» 



XXPTR, 6030»TEXT 'PTR' 



XXRUB, 6032fTEXT 'RUBOUTI' 



XXNRUB, 6033ITEXT *N0 RUBOUTS' 



/6031 HAS BEEN REMOVED. 



ilC.LSE 



^AL»-VT 



17-« 



iTttBl 


4022 


imzi 


2502 


1TUB3 


1725 


lT«P« 


2423 


i7«e5 


eeee 


J7«B6 


6034 


17407 


0314 


17*10 


0501 


17*11 


iite 


17412 


6035 


17415 


0405 


17414 


1401 


17415 


3100 


17416 


6036 


17417 


2523 


17420 


0540 


17421 


0000 


17422 


6037 


17023 


2014 


17424 


1724 


17425 


4000 


17426 


6040 


17427 


2205 


17430 


0114 


17431 


4024 


17432 


J119 


17433 


0540 


17434 


0000 


17435 


6041 


17436 


2305 


17437 


2440 


17440 


2201 


17441 


2405 


17442 


4000 


17443 


6042 


17444 


2305 


17449 


2440 


17446 


0314 


174(»7 


1703 


17490 


1340 


17451 


0000 


17452 


6043 


17453 


2701 


17454 


1124 


17455 


0300 


17456 


6044 


17457 


2701 


17460 


1184 


17461 


0000 


17462 


6045 


17463 


2503 


17464 


1719 


17469 


4000 


17466 


6046 


17467 


010] 



XXCl.E*R,6034|TE)(T »Ct.EAR» 



XXOEL*V,6035»TEXT 'OtLAV* 



XXUSE, 6036»TEXT »U8E • 



XXPLOT, 6037>TIXT 'PLOT • 



XXIIE4L, 6440ITEXT 'REAL TIME ' 



XX8ETR, 604UTEXT MET RATE ♦ 



XX8ETC, 6042»TEXT 'SET CLOCK * 



XXWAITC,6043|TEXT 'WAITC 



VYWAIT, 6044ITEXT 'WAIT* 



XXUCOM, 6045JTEXT 'UCOM • 



JtXACPT, 6046ITEXT 'ACCEPT* 



PIC.L8£ 



P4Le-VT 



17-10 



1T«7B 


e}09 


1T«71 


2020 


17«72 


zfeti 


17<i73 


62 4 7 


i7a7« 


2205 


17«75 


1205 


I7«7fc 


0320 


17«77 


0000 



XXHEJT, 6047;TE)(T 'REJECT* 



17500 0000 



17501 


3000 


XXTCXT, 


3000 




17502 


6023 


XXEOF, 


6023 




17503 


4113 


XXUNARY, 


,4113 




1750a 


0014 


XXFINl, 


4014 




17505 


6022 


XXEXIT, 


6022 




17506 


2000 


XXLIT0, 


2000I2001I2002I2003 


17507 


2001 








17510 


2202 








17511 


2003 


NOPUNCH 






17512 


eeee 


LINBUF, 


ZBLOCK 


51 


17563 


0000 


LBEGIN, 


ZBUOCK 


60 


17643 


0000 


ENDLIN, 







17644 


0000 


P0L18T, 


ZBLOCK 


40 


177B« 


0000 


ENDPDL, 







17705 


0000 


PORLIST 


.ZBLOCK 


20 


17725 


0000 


COLIST, 


ZBLOCK 


30 


17755 


0000 


SSBEND, 



ENPUNCH 





/Wic, 


Lee 






PAL8-V7 




P^ 


l7-tl 


*ecccr 


tTSfc 


SEGFIX 


3762 


06I8RT 


7547 


EXPOK 


5269 


ABOCET 


Bith 


BIOLE 


6713 


DBLIT 


7526 


PAD 


4000 


khOP 


E32S 


BKWD 


0600 


OBPUT 


7556 


FAOEXT 


1314 


tss 


ba2S 


BREAK 


6522 


ODLAST 


7512 


FAOI 


4400 
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XXINPU 7263 


XXUSE 


7416 


U6H1 35^2 


U5010 0034 


XXINT 7142 


XXUUF 


7212 


UIExT e23« 


U7 0033 


XXLBRA 7105 


XXWAXT 


7452 


UIEXT2 e2«3 


U7760 0052 


XXLE 7035 


VYWAXT 


7456 


UIEXT3 ms 


U7767 0035 


XXLET 7270 


ZEROON 


5144 


UIEXT4 ezfce 


U7775 0021 


XXUXS 7162 


ZERO 


0152 


UINAC 0^31 


U7777 0050 


XXI.18T 7156 


ZFXXEX 


4767 


uj^'p ae5« 


VAR 0343 


XXLIT0 7506 


ZZADB 


0775 


UJMS 2255 


VARTE^' 0553 


XXLOG 7123 


ZZADC 


0770 


UMEVAL 9911 


VSCNIi 3524 


XXUPT 7361 






UHOPER 1321 


VSCHLU 3475 


XXLT 7056 






UNDERF 4fc«S 


VSCHNO 3520 


XXMINU 7025 






UPAGET efrSS 


WAIT 7473 


XXNE 7043 






UPARPO fc«57 


WAITC 7473 


XXNEXT 7274 






UPARRX S7«fl 


rtOTEMP 1075 


XXNRUB 7377 






UPARR2 4365 


MORD 0050 


XXOPEN 7103 






UPCOMO 0731 


XEXECU 0412 


XXPUOT 7422 






UPFIX 0032 


XGI8XT 4066 


XXPUUB 7023 






UPPUN 0747 


XGMU8T 7345 


XXPRIN 7300 






UPJHP 0736 


X18IT 4073 


XXPTP 7364 






UREAL 0*60 


XMUST 7352 


XXPTR 736T 






UREJT 0A56 


XRESTA 1003 


XXPUT 7193 






USE 7aa6 


XXABS 7134 


XXRBRA 7070 






USERPN 1620 


XXACPT 7«66 


XXREAD 7337 






USETC 0«11 


XXAOB 7223 


XXREAL 7426 






USETP 0550 


XXADC 7176 


XXREJT 7473 






USCTM 0«16 


XXATN 7120 


XXREM 7327 






USE7R 0a00 


XXBSI.S 7230 


XXRETR 73B9 






USKIPI 7061 


XXCLC 7220 


XXRND 7149 






UTEMP 0053 


XXCI.EA 7406 


XXR8T0 7322 






UTIM 0541 


XXCUOS 7066 


XXRUB 7372 






UUACl 0654 


XXCLS 7215 


XXRUN 7165 






UUAC2 0661 


XXCOMM 7062 


XX8CR 7170 






UUACS 0666 


XXCOS 7112 


XX8EMI 7064 






UUDATA 7567 


XXCRLF 7226 


XXSETC 7443 






UUOEVC 0709 


XXOATA 7343 


XXSETR 7435 
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UUPUDC 0735 


XXOCP 7333 


XX8GN 7137 






UUJ^P 0722 


XXDILA 7412 


XX8IN 7150 






UUJMS 0707 


XXOIM 7316 


XXSLAS 7031 






UUf^EVA 0673 


XXEG 7046 


XX8QR 7131 






UUNOAD 7460 


XXIL 7051 


XXSTAR 7027 






UUPFIX 0677 


XXENO 7232 


XX8TEP 7076 






UUStTF 0030 


XXEOF 7502 


XX8T0P 7312 







